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EDITORIAL 


Lieber Leser! 


Wenn Sie diese Zeitung auf- 
schlagen, werden Sie sofort be- 
merken, das sich etwas geändert 
hat. Die Ansprüche der einzeln 
Anwendergruppen waren so 
stetig gestiegen, daß eine Erwei- 
terung des Angebots notwendig 
geworden war, Um aber den 
Preis von 3,89 DM zu halten, 
ohne Ihnen eine Zeitung zu ver- 
kaufen, die von Anfang bis En- 
de mit Werbung vollgepackt ist, 
haben wir uns entschlossen, auf 
der gleichen Seitenzahl wie bis 
her mehr Information zu bie- 
ten. Dies haben wir erreicht 
durch eine neue Schriftgröße 
und einen veränderten Satzspie- 
gel. Betroffen sind auch die 
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Se yaen die Sen i- 
erlisti isher der gröfste 
Plätefreser, haben wir ah die 
Listings erheblich verkleinert 
und so Platz geschaffen für eı- 
nen erheblich umf. icheren 
Schneiderteil. Da wir ja in erster 
Linie eine Leserzeitung sind, 
möchte ich an dieser Stelle alle 
Schneideruser aufrufen, sich die- 
sen neuen Raum nutzbar zu 
machen und mit ihren Program- 
men die Schneiderecke zu be- 
leben. . 


lu GI 


Uwe Knierim 
Chefredakteur 
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Die Eingabealternative! 


Ein großes Problem bei der Er- 
stellung von Computergrafiken 
stellt immer wieder die Eingabe- 
schnittstelle dar. Die Eingabehil- 
fen reichen von Joystick, Maus, 
Trackball bis zum Grafiktableau, 
Alle haben sie ihre Schwächen 
und Stärken. Das Hauptproblem 
besteht wohl in der Übertragung 
handgezeichneter Werke oder rea- 
listischer Abbildungen wie Fotos 
in den Computercode. Für diese 
Fälle bietet sich eine ganz beson- 
dere Form der Grafikedition: die 
Videodigitalisierung, Hier wer- 
den Fernsehsignale, wie sie an der 
Videokamera oder am Monitor- 
ausgang eines Videorekorders auf- 
treten, in Werte übersetzt, die die 
Bitmap eines Grafikbitdsckirm 
en, 


Diese Methode ist allerdings aus- 
gesprochen kostspielig; da sie eine 
Menge 
benötigt. Auch wenn heute die 
Preise der Bjldumsetzer drastisch 
gesunken sind, ist die Investition 
doch noch sehr umfangreich. Ne- 
ben dem Digitizer sind schließlich 
noch eine Farbkamera und ein 
technisch hervorragender Video- 
recorder erforderlich (das Stand- 
bild darf nicht wackeln!). Wer 


dwareerweiterungen: 





allerdings eine derartige Video- 
anlage sowieso schon sein Eigen 
nennen kann, ist in der Lage, sich 
mit wirklich wenig Aufwand mit 
dieser Technik aufrüsten. Die Di- 
gitizer gibt es mittlerweile für alle 
Homecomputer und auch schon 
für PC’s, den Atarı ST und den 
Amiga. 


Wir haben uns einige Digitizer 
speziell für den C 64 und auch ei- 
ne Schneiderversion angeschaut, 
an für seen 
Aufgaben sie geei sind un 

wonn die en bestehen. 
Vier verschiedene Geräte standen 
in unserer Redaktion, zwei davon 
wollen wir Ihnen in dieser Aus- 
gabe vorstellen. In dem nächsten 
Heft stellen wir Ihnen dann den 
Farbdigitizer von Fet-Füle und 
das Gerät von Print-Technik vor. 


Als einziges der getesteten Geräte 
ist das Video-1000 vom Ingenieur- 
Büro Fricke in der Lage, Bilder 
im Hires-Modus des C-64 abzule- 
gen. Diese Bilder können dann 


"mit dem ausgezeichneten Grafik- 


programm Hi-Eddi + weiterver- 
arbeitet werden. 


ER x 


Video 1000 - die Edellösung 


Der technische Aufbau der Anla- 
ge ist etwas komplizierter als das 
der anderen getesteten Geräte. 
Dafür ist es aber auch das einzige, 
das in der Lage ist, das auf die 
Grauwerte reduzierte Livebild 
auf dem Monitor darzustellen. 
Softwaremäßig (durch einfachen 
Tastendruck) En man zwischen 
dem Livebild und dem digitali- 
siertem hin- und herschalten. 
Wenn man auf das digitalisierte 
umschaltet, bekommt man erst- 
mal einen Schreck - von den 384 x 
288 Bildpunkten kann der C-64 
natürlich nur 320 x 200 darstellen. 
Von dem Bild sieht man nur ei- 
nen Ausschnitt und unter Um- 


ständen fehlen wichtige Dinge des: 


Bildes. Aber auch hier weiß Vi- 
deo 1009 Rat, Mit den Cursorta- 
sten kann man den Bildausschnitt 





verschieben, bis das Bild den.eige- 
nen Vorstellungen nit 
Folgende Besondicheiten bietet 
Viedeo 1000: Wahlmöglichkeiten 
zwischen Hires, Hires mit zwei- 
tem Farbton (Raster!) und Vier- 
Farb-Modus. 


Die Bilder werden auf Diskette 
im normalen Commodoerformat 
abgelegt. Das heißt, sowohl die 
Hires- als’auch die Mukticolorbil- 
der können leicht in eigene Pro- 
gramme eingebaut werden. Eine 
Bearbeitung mit Koalapainter ist 
allerdings nicht möglich, da dieser 
nicht im üblichen Commodore- 
format arbeitet, Die Digitalisie- 
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rung ist in allen Modes von hoher 
Qualität; was allerdings hohe An- 
forderungen an das eingespeiste 
Videobild stellt. Flaue Bilder, 
Körnung im Bild und verschlisse- 
ne Videoaufzeichnungen führen 
zu Störungen bei der Digitalisie- 
rung. Sind diese Dinge aber ein- 
wandfrei, erhalten Sie Bilder mit 
einem recht hohen Wiedererken- 
nungswert. Die Abtastrate für ein 
einfarbiges Bild beträgt nur 1/50 
Sekunde, im Mehrfarbmodus 
wird das Bild allerdings dreimal 
eingelesen berechnet, hier 
muß schon ein einigermaßen ste- 
hendes Bild am Eingang anliegen. 


Bei der Schneiderversion über- 
zeugte uns die klare Bildschirm- 
auflösung. Besonderer Gag der 
Schneidervariante: mehrere Bi- 
der können zu einem Kurzfilm 
gekoppelt werden. Der Eindruck 
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der dabei entsteht, ist wirklich der 
eines kleinen Minifernsehers im 
Computerbild. 


Video 1000 ist für 295,- bei Ing. 
Büro Fricke, Neue $tr.13, 1000 
Berlin 37 (Tel,: 030/8015652) für 
295,- DM zu beziehen. Das 
Schneidergerät koster 100 DM 
mehr. 


Falschfarbendigitalisierung 
mit VD 64 


*Falschfarben” ist nicht, wie man 


‚meinen könnte die Bezeichnung 


eines Defektes, sondern eine bei 


vielen Anwendungen erwünschte 
Umsetzung von graduellen Un- 
terschieden beliebiger Werte in 
kontrastierende Farben. So wur- 
den zum Beispiel die Aufnahmen 
vom Halleischen Kometen mit 
diesem Verfahren gemacht, Aus- 
schließlich solche Falschfarben- 
grafiken liefert der VD 64 -Digi- 
tizer von Merkens, was nichts an- 
deres heißt, daß das Schwarz- 
Weiß-Signal ‘des Fernsehbildes 
analysiert wird und jedem Bild- 
punkt je nach Helligkeit eine von 
vier Farben zugeordnet wird. 
Dies geschieht nur im Multicolor- 
modus des C-64. Der VD 64 bie- 
ter keine weiteren Wahlmöglich- 
keiten. Allerdings ist er dadurch 
ausgesprochen einfach zu bedie- 
nen und das Ergebnis entspricht 
ziemlich genau dem, was der nor- 
male Anwender von einem Video- 
- digitalisierer erwartet. Wenn die 
Farben entsprechend gewählt wer- 
den, entsteht durchaus der Ein- 
ruck realistischer Bildumserzung. 


Die Falschfarbenoption kann 
man in diesem Zusammenhang 
nur als zusätzliche Möglichkeit 
der Bildanalyse betrachten. Beim 
stehenden Bild erscheint am lin- 
ken Bildrand ein langer Streifen, 
auf dem die vier verwendeten Far- 
ben verzeichnet sind. Die Länge 


der jeweiligen Felder markiert die 
Helligkeitsschwellen, ab denen 
die Grauwerte in der nächstfol- 
genden Farbe dargestellt werden. 
Diese Schwellen lassen sich mit 
den Funktionstasten bequem ver- 
ändern, Da das Bild in Multicolor- 
daten umgerechnet wird, fallen 
auch kleine Körnungen der Bild- 
quelle nach dem Digitalisieren 
nicht mehr als Fehler auf. In 1 
Sekunde kann der VD 64 3 Bilder 
abrasten, berechnen und 

len. Bei entsprechender Einstel- 
lung digitalisiert das Gerät im 
Dauermodus; und auf dem Bild- 
Kan erscheint eine Art Ruckel- 
ihm. 


Das Bildformat 
Wie viele Soft- und Hardwareher- 
steller hat man sich bei Merkens 
auf das Koalaformat bei der Abla- 
e der Bilder geeinigt. $o ist ein 
eichtes Weiterverarbeiten der ge- 
wonnenen Grafiken möglich. Da 
das Koalaformat leider keine 
Commodorenorm darstellt, ist 
bei der Einbindung in eigene Pro- 
gramme eine Konvertierung not- 
wendig. Solche Routinen sind al- 
lerdings schon vielfältig veröffent- 
licht worden. . 


Sehr schön fanden wir auch die’ 


Optionen Negativdarstellung 
und Differenzmodus, in dem 


nur bewegte Objekte klar hervor- 
treten, Auch beim VD 64 kann 
mit den Cursortasten der Bild- 
Sr mai verändert wer- 
en, 


Info: Merkens, 
Fuchstanzstraße 6a, 
6231 Schwalbach; 
Telefon: 06196/8 3030 





Abschließend ist festzustellen 
(und das gilt auch für die Geräte, 
die wir in der nächsten Ausgabe 
vorstellen), daß alle getesteten 
Digitalisierer optimal arbeiten, 
für den Anwender jedoch die ver- 
schiedenen Eigenschaften der Ge- 
räte interessant sind, um für seine 
speziellen Anwendungen das ge- 
eignete zu finden. (uk) 





Neue Druckergeneration 
von Commodore in Sicht 





Commodore überrascht in den 
nächsten Wochen mit einem neu- 
en Drucker, der in England aller- 
dings seine Premiere schon hinter 
sich hat, Der MP$S 1000 bedeutet 
eine erfreuliche Abkehr von der 
bisher von Commodore prakti- 
zierten Geschäftspolitik. Er ist 
schnell, von hohem Standard und 
im modernen Design gehalten 
und paßt sich daher hervorragend 
in die neue Produktlinie, vom 
neuen C 64 bis zum PC 128 und 
dem Amiga, ein. Und das Über- 
raschende dabei ist, daß sich dies 
nicht nur auf das Äußere bezieht, 
sondern auch auf die technischen 
Daten. Denn der MP$ 1000 be- 


sitzt nicht nur das übliche serielle 
Commodoreinterface, sondern als 
erster Drucker im Commodore- 
verkaufsprogramm auch eine 
Standardcentroniesschnittstelle. 
Des Rätsels Lösung: der MPS 
1000 ist weitgehend baugleich mit 
dem EPSON JX 80, dem im 
wesentlichen nur eine 2. Schnitt- 
stelle und das Etikett von 
Commodore verpaßt wurde, Da- 
her sind auch fast alle technische 
Den mit denen des JX 80 iden- 
tisch. 


Die Umschaltung zwischen den 
beiden Druckermodi erfolgt über 
einen etwas klein geratenen Dipp- 
schalter. Im Commodoremodus 
nicht. alle ESC- 


sind leider 


"Funktionen des JX 80 verfügbar, 


während sich der Drucker im 
Centronicsmode in einen IBM- 
kompatiblen Drucker verwandelt 
und glücklicherweise genauso 
perfekt wie alle EPSONdrucker 
arbeitet. 


Nun könnte mian vermuten, daß 
Commodore hier einen Drucker 
mit Blickrichtung auf den Amiga 
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anbieten möchte, Tatsächlich je- 
doch ist im Herbst eine komplet- 
te Druckerpalette von Commo- 
dore angekündigt worden, die un- 
ter anderem einen MPS 2006 
enthält, einen NEC-Drucker spe- 
ziell für den AMIGA. Rückfragen 
ergaben, daß der MPS 1000 be- 
sonders für die Besitzer des PC 
128 gedacht ist, da die professic- 
nellen Programme für den 128er 
und den C/PM-Mode des öfteren 
eine parallele Centronicsschnitt- 
stelle am Userport simulieren, 
was von den Anwendern im allge- 
meinen bevorzugt wird. Bisher 
mußten diese Anwender jedoch 





Die Rückansicht zeigt das Centro- 
nicsinterface und die serielle CBM- 
Schnittstelle, 


bei Benutzung eines Centronics- 
drucker entweder auf direkten 
Grafikausdruck verzichten oder 


sich ein zusätzliches Centronics- 
interface (Wiesemann oder Gör- 
litz z.B.) anschaffen. Mit dem 
MPS 1000 sind solche Inkompabi- 
kitätsprobleme vollkommen be- 
seitigt und man ist zudem auch 
noch im Besitz eines hervorragen- 
den EPSÖNdruckers. - 

Aber ganz ohne den Blick auf zu- 
künftige Produkte kann Commo- 
dore den MPS 1000 nicht geplant 
haben. Schon Kinger wurde im 
Hause Commodore die Bedeu- 
tung der"Umsteiger”erkarınt, was 
ja bekanntermaßen zu einem 64er 
Mode im PC 128 führte. Der her- 
vorragende plus 4 demonstrierte 
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auch noch sehr drastisch, daß ein 
völlig neues Betriebssystem sich 
zumindest mit den ursprüngli- 
chen Preisvorstellungen nicht auf 
dem Markt durchsetzen ließ. Auch 
verstummen die Gerüchte über 
einen LITTLE AMIGA nicht, 
der unter Umständen ebenfalls ei- 
nen 64er Mode besitzen soll. Wie 
man sieht, der Kreis der potentiel- 
len Käufer des MPS 1000 wird rie- 
sig groß sein, gerade dann, wenn 
man bedenkt, wie interessant die- 
ser Drucker für User ist, die sich 
mit dem Gedanken tragen, irgend- 
wann einmal auf ein größeres 
System umzusteigen. (uk) 


Nachrichten von VIZA-Software Disketienhox 5.25” 


Umsteiger vom C-#64 auf den 
Commodore 128 können nun 
auch Ihr Vizawrite 64 bei dem 
deutschen Distributor gegen das 
Vizawrite Classic umtauschen, 
Dabei wird für die originale und 
registrierte Vizawrite 64 - Version 
inch, Handbuch 50,- DM auf den 
Verkaufspreis von Vizawarite 
Classic angerechnet, 


Benutzer des PC 128 warten si- 
cher schon ungeduldig auf die 
Datenverwaltung von VIZA. Da 
aber die Übersetzung ıns Deut- 
sche noch auf sich warten läßt, 
bietet DTM den Anwendern zu- 
nächst die englische Version an, 
die nach Erscheinen der deut- 
schen Version jedoch umge- 
tauscht werden kann, sofern der 
Käufer die Registraturkarte ausge- 


fülle an DTM zurücksender. 
Apropos Registratur: DTM ver- 
treibt die VIZA-Produkte erst seit 
Beginn dieses Jahres. Dadurch er- 
gaben sich Probleme mit den 
VIZA-Anwendern, die noch bei 
dem alten Vertrieb registriert 
wurden. Diese Kartei ist nun für 
DTM nicht zugänglich. DTM 
fordert daher alle VIZA-Anwen- 
der auf, sich neu registrieren zu 
lassen. Als Beleg wird eine Kopie 
der Kaufquitiung gewünscht. Wer 
diese verloren hat oder wer Origi- 
nalsoftware aus zweiter Hand be- 
sitzt, dem empfehlen wir, eine 
Forokopie der Originaltitelseite 
des Handbuchs und der Original- 
diskette an DTM zu senden. 
DIM, Bornhofenweg 5 

6200 Wiesbaden 

Tel.: 06121/407989 





Kühlgehäuse für Floppy 1541/1570 


Eine ganze neue und praktische 
Idee ist das Floppyuntersatzge- 
häuse‘ von Maurer-electronic- 
design-studio. Es enthält eine 
Kühlturbine, einen Netzschalter, 
der von vorne zubedienen ist und 
sowohl Kühlung wie auch Flop- 
py ein- und ausschaltet. Die Flop- 





py erhält den Strom aus einer ein- 
gebauten Steckdose. Die Kühltur- 
bine saugt ständig Luft durch die 
unteren Lüftungsschlitze nach au- 
ßen - Frischluft wird durch die 
oberen Schlitze angesaugt. Wir 
finden diese Idee wirklich ganz 
toll, da das Handling der Floppy 
sehr erleichtert wird und auch & 
längerem Arbeiten keine Über- 
hitzungen entstehen. Allerdings: 
dieses Zubehör dürfte nicht ganz 
billig sein. Leider hatten wir bei 
Redaktionsschluß noch keine 
Preisangabe für das komplette Sy- 
stem, das leere Gehäuse jedoch 
wird für immerhin stolze 55,- 
vertrieben. 


Rita Maurer, elecironic-design- 
studio, Haingraben 23 

6309 Münzenberg 2 

Tel.: 06004/2737 


Eine neue praktische Disketten- 
box presentiert "data berger”. 
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Tiese Box ist durch sein Schubla- 


„densystem nicht nur enorm prak- 


tisch, sondern auch in 'hervorra- 
gendem Design gehalten. Wenn 
man bedenkt, daß sie bis zu 70 
Disketten aufnehmen kann, ist 
der Preis von 69,-- DM wirklich 
akzeptabel. Mehrere Boxen kön- 
nen miteinander zu einem System 
verbunden werden, auch ein klei- 
nes Schloß läßt sich nachträglich 
einbauen (14.90DM). Wirklich 
praktisch, preisgünstig und im 
Aussehen edel, edel. 

Detlef Berger, Im Lichtenfelde 
76, 4790 Paderborn, Telefon: 
05251/64852 





Wiesemenn 
sucht das 
ideale Interface 


Auf der Suche nach dem idealen 
Interface für Standarddrucker am 
C64/C128 bestreitet Wiesemann 
einen ganz besonderen Weg, Alle 
Anwender, Fachredakteure und 
Computerfreaks fordert Wiese- 
mann aufihre Wünsche für ein 
"Trauminterface” mitzuteilen. 
Ernsthafte Anregungungen wer- 
den mit einem Rabatt auf dises In- 
terface belohnt. 


Ferner bietet Wiesemann einen 
Centronicszusatz an, mit dem 
man einen Drucker für 2 Compu- 
ter einsatzbereit halterı kann. Sen- 
det. eın Computer Zeichencodes, 
wird der andere Computer auto- 
matisch blockiert. 

Preis ca. 248,- DM. 


Wiesemann, Winchenbachstr. 


-3-5, 5600 Wuppertal (Barınen), 


Tel.: 0202/5605077 
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Neuer Quickshot- 


Joystick 


Der Superjoystick Quickshot 2 
ist nun auch in einer ”plus”- 
Version erhältlich, die start den 
üblichen Folienkontakten Mikro- 





schalter besitzt. Ein wirklich fan- 
tastisches Spielvergnügen, daß 
echtes Spielhallengefühl vermit- 
telt. Preis: ca, 34.80 DM. 

Info: Einzelhandel und Kauf- 
häuser 





__bücher 
Was fehlt auf Ihrem 


Bücherbord? 





Wer schon einige Zeit in Basic 
programmiert hat, wird bald 
die Grenzen dieser Compu- 
tersprache erkennen: Rech- 
nen, Auswerten, Datenüber- 
tragung, Simulationen, das al- 
les läuft unerträglich langsam 
ab. Eine Reihe von Problemen 
ist daher mit Basic nicht oder 
nur unbefriedigend zu lösen. 
Um Abhilfe zu schaffen, gibt 
es nur zwei Möglichkeiten: 
entweder man versucht es ın 
einer anderen höheren Pro- 
grammiersprache, oder man 
programmiert gleich in Ma- 
schinensprache. 

Wie der Titel des Buches 
schon verrät, gingen die Auto- 
ren des Werkes den letzteren 
Weg. Es sei jedoch darauf hhin- 
gewiesen, daß dieses Buch kei- 
neswegs für den Assembler- 
Anfänger geschrieben wurde, 
vielmehr sollen an prakti- 
schen Beispielprogrammen 


Be —— 

a ae 

,7 nz x<=—G" 
a 


= 


die Kenninisse von der As- 
semblerprogrammierung ver- 
tieft werden. Vor dem Kauf 
dieses Buches sollte sich der 
Leser daher anhand von 6502- 
oder 6510-Einführungsbü- 
chern erst die wichtigsten 
Grundkenntnisse dieser 
schwierigen Sprache aneig- 
nen. Ist ihm dies gelungen, so 
findet er in diesem Buch ein 
wirklich gutes Nachschlage- 
werk. Neben der Beschrei- 
bung von C-64-Systemrouti- 
nen werden auch Vergleiche 
zu den Vorgängern CBM 4001 
und CBM 8001 durchgeführt. 
Bei alten Hasen werden diese 
Computerbezeichnungen si- 
cherlich alte Einsteiger-Erin- 
nerungen hervorrufen. Dem 
Anfänger sei gesagt, daß es 
sich bei diesen Rechnern um 
Vorgänger des C-64 handelt, 
weiche als Personal-Compu- 
ter vertrieben wurden, jedoch 
außer dem Gehäuse sehr star- 
ke Ähnlichkeiten mit dem C- 
64 aufweisen. Viele Beispiel- 
programme, welche im Buch 
abgedruckt wurden, stammen 
von diesen Rechnern. Durch 
geringfügige Änderungen ei- 
niger Systemadressen lassen 
sich sehr viele Routinen inner- 
halb von Commodore-Rech- 
nem austauschen. Gerade 
dies wird durch eine. Ver- 
gleichsliste der einzelnen Sy- 
stemadressen stark erleich- 
tert. Der Anhang ist eigent- 
lich der wichtigste Teil des Bu- 
ches überhaupt, hier wurden 
alle ROM-Routinen alphabe- 
tisch nach Label-Bezeichnung 






geordnet. Auch ein Verzeich- 
nis mit kurzer Erläuterung der 
Funktion ist: hier zu finden. 
Für den noch nicht allzu si- 
cheren Programmierer wurde 
auch eine Assembler-Kurz- 
schule in das Buch mit einge- 
bunden. Hier wird aufrund 20 
Seiten der Befehlssatz, die 
Adressierung und das Status- 
register des Microprozessors 
6502 (6510) besprochen. Der 
Hauptteil des Buches bestehi 
eigentlich aus einer Samm- 
lung von kleinen Utilites. Pro- 
grammroutinen wie MERGE, 
MSAVE und ähnliches wer- 
den hierals Assembler-Listing 
dokumentiert. Besonders in- 
teressant ist auch ein Kapitel, 
welches sichmit Arithmetik in 


1il7. 


Maschinensprache befaßt. 
Nicht selten wird dieser Be- 


reich wegen seiner Komplexi- 


tät auch von Profis gemieden. 
Fazit: Durch eine Vielzahl 
von Listen und Tabellen eig- 
net sich dieses Werk ideal als 
Nachschlagewerk für den et- 
was fortgeschritteneren Pro- 
grammierer. Da alle Beispiele 
auch auf Diskette mitgeliefert 
werden, entfällt das mühselige 
Abtippen der ASuDlE 


stings. 

Winfried und Frank Kassera 
Programmieren in Maschinen- 
sprache 

Markt und Technik Verlag, 
Haar 

Preis: 52,- DM 

incl, Programmadiskette 


C 16-Standardwerk 





Insider (wie wir!) haben mittler- 
weile bemerkt, das sich der C-16 
mit seinen Brudermodellen C116 
und plus 4 durch sagenhafte Preis- 
senkungen zu einem weitverbrei- 
tenden Homesomputer und da- 
mit auch zu einem wichtigen Fak- 
tor auf dem Computerrgaele 
geworden ist. Dennoch haben die 
Anwender dieser Computer lange 


Compute mib 


Zeir vergeblich auf vernünftige 
Buchdokumentationen gewartet, 
zumal Commodore seine Sach- 
beiele aus seinem en 
Verlagsprogramm getrichen hat- 
te. Markt und Technik bricht 
nun das Eis mit einem Buch, das 
verspricht, ”alles über den C 16” 
mitteilen zu können. 

Tatsächlich bietet das vorliegende 
Buch einen sehr gelungenen Ein- 
stieg in die Bedienung des C 16, 
angefangen vom leistungsstarken 
BASIC bis zu den Grafikgrundla- 
gen. Ebenso ausführlich werden 
das Arbeiten mit Datasette und 
Diskettenlaufwerk, der Maschi- 
nensprachemonitor und die Regi- 


ster der BASICbefehle behandelt, 


Fazit: wer mehr über seinen 
Computer wissen will, oder wem 
der Einstieg über das Handbuch 
Schwierigkeiten bereitete, ist mit 
dem diesem Werk bestens be- 
dient. 


Wilhelm Besenthal / Jens Muus, 
Alles über den € 16, Markt und 
Technik, Haar, 39,- DM 








Software-Champion 1986! | 


Die besten 
Autoren gesucht! 


* Der Tronic-Verlag sucht die besten Softwareautoren 1986! 
Die besten Programme werden abgedruckt und mit 120,- DM 
pro Seite honoriert und kommen in die engere Wahl für 
unseren Wettbewerb! 


Flop 
1551 7 


für 
* 2 en des Wettbewerbs ist der C 16 mit seinen pl er 164 
Brüdern C 116 und plus4, besonders die 64k-Varianten. ande 
Aber auch alle anderen Systeme werden berücksichtigt! "im Wr Zubehör 
Die Entscheidung fällt die Redaktion. Anfang 87 werden vo ES 
dann die Gewinner vorgestellt! n 400,- DM 


20, - DM. 


5 besten Programms; | 
64K-Versionen | 
von C16/116 


Einsendungen an: 

Tronic-Verlag 

Postfach 

3440 Eschwege 

Kennwort: Software-Champion’86 
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The never ending story 


von Uwe Knierim 





Es kostet wohl allerhand Mühe, 
hinter die Kulissen von GEOS, 
dem neuen Betriebssystem für 
den C 64 zu schauen. Berkeley 
Softworks geben sich etwas be- 
deckt, und auf die Manuals aus 
deutschem Vertrieb, egal ob engli- 
sch oder deutsch, muß man noch 
etwas länger warten. Etliche Tele- 
fongespräche waren nötig, um er- 
ste Detailinformationen zu erhal- 
ten. Für alle die sich näher mit 
GEOS beschäftigen wollen, wer- 


24 files 164 


EOS BOOT 


[21 


GEONRITE 
1 


GEOS KERNAL 


GEOS intern, 


sprochen sinnvoll, sich bei der 
Entwicklung eigener Anwender- 
programme dieser Features zu be- 
dienen. Für alle Programmierer, 
die sich nicht sofort auf GEOS 
einstellen können, bietet: dieses 


Berriebssystem die kn A 
Basicpr e, einzubinden, 
die allerdin nicht größer als 24 


K sein dürfen, da ansonsten der 
FASTPORT ausgeschaltet wird. 
Was liegt näher, als längere Pro- 
gramme in Module aufzuteilen 


# GEOS Sc 


S Ister 


zweimal angeklickt, lädt und star- 
tet GEOS dieses File. Ist dieses 
Programm beendet, muß der An- 
wender GEOS mit LOAD "GE- 
05”,8,1 neu einladen. 


Die Fileerkennung 


Wenn GEOS ein beliebiges Pro- 
gramm laden soll, schaut es erst 
einmal im Directoryeintrag nach 
den Zeigern für den ersten Sektor 
und Block. GEOS folgt dem Zei- 
ger und holt sich die ersten zwei 
Bytes, die die Startadresse des Pro- 
gramms mitteilen. Sieht GEOS 
die Basicstartadresse $0861, so 
wird der C 64 für die Basicbe- 
triebsart konfiguriert, 


Nun schaut GEOS im Directory 
nach der Größe des zu ladenden 
Files. Ist der File so klein, daß er 
zwischen die Basicstartadresse 
und $820@ passt (hier beginnt der 
elladercode!) lädt 
GEOS den File im Turbomodus. 
ößer, benutzt GEOS die 


$ normale C 64 Routine, indem es 


DESK TOP 


ol ee 
BACKUP Praigranie mor 





Directory mit Icons 


den wir ständig Informationen 
für Programmierer veröffentli- 
chen und hoffen dabei auch auf 
die rege Mitarbeit unserer Leser. 
Wer spezielle Erfahrungen mit 
GEOS gemacht hat, kann seine 
Tips und Tricks gerne an den 
Tronic-Verlag senden - natürlich 
winken die üblichen Autorenho- 
norare. In dieser Ausgabe begin- 
nen wir mit der Veröffentlichung 
von Detailinformationen. Es geht 
diesmal um den Schnellademodus 
und die Behandlung fremder Files 
durch GEOS. 


Fremde Files unter GEOS 


Wenn man bedenkt, wieviele zu- 
sätzliche Funktionen GEOS an- 
bietet, erscheint es doch ausge- 


und sie dann aufzurufen, wenn sie 

benötigt werden. Denn mit GE- 

©S ist es prinzipiell möglich, 

- Anwendungen einzuladen, die 
nicht im GEOS-Format abge- 
Get sind, 

» diese Files mit einem eigenen 
Icon (Bildsymbol) zu versehen, 

» nach Programmende wieder in 
das DESK TOP zurückzu- 
kehren. 


Laden aus dem Desk Top 


Jedes C-64 Programm kann ohne 
Veränderungen vom Desk Top 
aus geladen und gestartet werden. 
Wenn im Desktop-Directory ein 
normales C 64 - File gefunden 
wird, plazierr GEOS$ ein "OLD 


C- 64” Icon. Wird dieses. Icon’ 
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R in den BASIC-Bidschirm-RAM 


LOAD”’NAME”,8 
RUN 


; schreibt. GEOS sendet dann ei- 
S nen CHR$(13) in den Tastatur- 


puffer und springt dann in das 
BASIC, das dann den File lädt 
und startet. 


Etwas anders verhält es sich, 
wenn das Basicprogramm bereits 
eine Autostartroutine enthält und 
x im Stack herumwerkelt oder die 
\ Basicvektoren in Page 3 verbiegt, 
so daß das Programm startet, oh- 
ne daß RUN eingegeben wurde, 


Diese Programme haben zumeist 
eine Basicstartadresse, die kleiner 
ist als$400. Dies wird von GEOS 
bemerkt und überläßt die Lade- 
kontrolle dem originalen Basic- 


programm. 


Natürlich wäre es schöner, wenn 
auch die eigenen Programme ei- 
nen eigenen Bildeintrag in der 
GEOSdirectory hätten. Dies be- 
schreiben wir in den folgenden 
Absätzen, 


GEOS-Fileformat 


Wer sein eigenes Programm mit 
einem GEOS Icon ablegen möch- 
te, muß die komplette Struktur 
des Directoryeintrags verändern 
und einen zusätzlichen Daten- 
block als Fileheader schaffen. 
Der Disk Header und die BAM 
werden von GEOS nicht angeta- 
stet, mit Ausnahme des Vermerks 
über den zusätzlichen Block des 
Fileheaders natürlich. Um die 
Veränderungen richtig zu verste- 
hen, empfiehlt es sich, die not- 
wendigen Arbeitsschritte zu- 
nächst einmal mit einem Diket- 
tenmönitor durchzuführen und - 
erst später dies einem entspre- 
chendem Programm zu überlas- 
sen, 


Die Veränderung des Directo- 
ryeintrags 


Der erste Schritt, um einen File in 
GEOSformat abzulegen, ist die 
Veränderung des Directoryein- 
trags. Die Kenntniss des üblichen 
Commodoreformats setzen wir 





® . Directory nach Datum sortiert 





fee 


an dieser Stelle voraus. Im Flop- 
pyhandbuch oder in "Floppy in- 
tern” von Databecker lassen sich 
diese Dinge schnell nachlesen. 


Wie sieht der GEOS$-Fileeintrag 
nun aus? 


1. Die Bytes 0-18 entprechen de- 
nen des normalen C 64-Eimtrags. 


2. Die Bytes 19 + 20 stellen den 
FILE HEADER BLOCK 
POINTER dar. In normalen 
DOS wird hier auf den 1. Sektor 
einer relativen Datei gezeigt. In al- 
len anderen Filetypen bleibt die- 
ses pe unbenutzt. Hier nun 
zeigen diese Bytes auf ”Kopfein- 
trag” des Geostiles, in dem sich al- 
le zusätzlichen Informationen be- 
finden, also auch die Datas der 
ICONs. In dieser speziellen 


Struktur liegt auch die Ursache 


für die Tatsache, daß sich GEOS- 
files mit einem herkömmlichen 
Filekopierprogramm nicht köpie- 
ren lassen. Der Pointer mitten im 
Block wird natürlich beim Kopie- 
ren übersehen, und so fällt der 


Headerb}ock in der Kopie völlig 
unter den Tisch. 


3. Byte 21: GEOS Struktur Typ. 
Dieses Byte kann nur folgende 
Werte haben: 

B = sequentiell 


= vlir 


In Files ohne GEOSstruktur ist 3 


dieses Byte normalerweise #. 
Wenn das Programm keine GE- 
OSroutinen benutzt, sollte es 
auch den Wert behalten. 


4. Byte 22: GEOS File Typ: GE- ? 
OS kennt eine ganze Reihe neuer ! 
Filetypen, die wir im nächsten ! 


Absatz beschreiben werden. 
Wenn es sich um ein Basicpro- 
gramm handelt, muß dieses Byte 
= 1 sein, bei einem Maschinen- 
sprachprogramm = 2, 


5. Bytes 23 - 27: Datum, Jeweils 

en Byte für Jahr, Monat, Tag, 

Stunde und Minute, Bei der Jah- 

reszahl wird nur ab Jahrzehnt (al- 

so z.B. 86) eingetragen und die 

Stunden zählen von 0 bis 23. 
EKxrXx 


SHERLOGCK 12.5 
Application 


rrt 


433 
SEORAIHT 


“ struchure: 


medified: 


geokirite 
NLIR 

size: 19K 
377/86 


„1.8 


3:08 PM 


Tony Requist 
Alirite Protect 





i 


3 is a MYSIWNYE text 
editor with proportional. 
specing and graphie support. 








ni ler Dar Be 195 & $ 
Hier werden alle Angaben aus dem Directoryeintrag und dem Filcheader 


zu einem Fileinfo zusammengefaßt, das Geopaint-Icon ist zerstört, 


Der File-Kopf-Eintrag 


Der File-Header ist ein spezieller 
GEOS-Eintrag, auf den im Direc- 
toryeintrag hingewiesen wird. Er 
umfasst einen kompletten Disket- 
tenblock (256 Bytes} und enthält 


MOON-PAT 
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alle wichtigen GEOS- 
Informationen, sowie auch das 
Icon, das in Spriteformat abgelegt 
ist. Den Aufbau dieses Headers 
und über Möglichkeiten ihn 
selbst zu erzeugen, besprechen 
wir in der nächsten Ausgabe. 


OL 


Spannung ver- 
spricht dieser 
alte Spiel- 
hallenhit nun 
auch für alle 
VC-20-Fans! 


Endlich hat sich jemand erbarmt, 
den alten Spielhallenhit auch für 
den VC 20 umzuschreiben. Über 
Stock und Stein geht es sozusagen 
- besser gesagt über Krater und 
Felsen. Und wer bei dem knap- 
pen Sauerstoff noch überleben’ 
will, hat eine echte Motivation, 
noch rechtzeitig nach Hause zu 
kommen. Echt spielstark, und das 
in Bäsic auf dem VC 20. Na dann: 





. Helm auf und ab geht die 
a 


Post! 
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programme 


VEZO LISTING + CHECKSUMMEN (VE v1. 


1 REM#HRHEH EHER 

2 REM#=(C) 1986 BY ** 

3 REM#e# THOMAS  #** 

4 REM## ROEDERN x* 

5 REM#HRRSREEREERHEHR 

8 POKE36979 ‚25: FOKES& „ 2Bs FOKES?,2Bs ELR 

9 POKES4869 ‚255: 605UB200 

DATA156 ,255, 255,255, 255, 255, 255,255 
DATA3, 231,255, 255,259, 255, 755,255 

DATA9F2,258 , 255,255, 255,255,255,255 

DATA179 , 255 , 255,295 , 255, 259, 255,255 

DATA72, 255,255, 255,255, 255,255,255 

DATA255, 255, 255,255, 255,255,255,255 

DATA128,224,192,249,252,248, 254,255 
DATA128,224,192,208,252,248,252,255 
DATA128,192,192,209,252,248,252,255 

DATA3,7,7,15,7,31,223,255 
DATAO,16,16,16,127,255,255,255 
DATAO,0,0,0,240,249,207,254 

DATA255, 255,255,142,49,123,123,47 
DATA255, 258,255, 112,140,222,222,140 
DATAS,15,21,31,63,63,127 ,255 

DATAO, 192, 208,248, 252,252, 254,255 
DATA73,32,140,33,24,66,144,77 
DATA77,144 ,66,24,33,16,32,73 
DATA72,144 ,66,24,,33,16,324 72 
DATAO,0,0,0,0,66, 146,77 

DATA24 ,50,126,125,126,125,50,24 
DATAO,0,0,0,16,56,56,1& 
DATAO,255,255,255,255,255,255,255 
DATAO,0,0,0,0,66,90,126 

DATA255,254 ,252,249,240,224,192,128 
DATA255,127,63,31,15,7,3,1 

DATA255 ‚255 , 255,239 ,255, 255,259, 255 
DATAO,0,0,0,7,0,0,0 
DATAO,49,29,127,255,127,29,48 
DATAS0,18,30,6,30,12,12,30 

DATA26 ,26 ,26,26,30,64,6,30 
DATAZSS,171,213,171,213,171,213,255 
DATAs sans nr 
DATAO,0,24,24,24,60,126,255 

DATA, ss 495 
DATA24,24,24,24,24,24,24,24 
DATA24,24,24,24,24,24,60,12& 

DATA60, 66, 153,161,161,153,66,60 
FORX=7148107471:READA: POKEX „A: I=I+A:N 
EXT 

92 IFI< >37866THENPRINT" (CLEAR RUSONI INS 
PACE}DEN{SPACE}DATAZEILENLSPÄCEFISTLSPAC 
E}LEIDERLSPACEIEIN{SPAGEIFEHLER! "SEND 

94 PRINT"{CLEAR DOHN3 BLACK RVSON}BENDET 
IGEN{SPACEISIE{SPACE?DIETSPACE4}SPIELREG 
ELN{SPACEF?® 

95 GETA$: IFA$="J"THENIOO 

96 IFASS >" N"THENFS 

97 GOT0169 

100 POKE34865,155rFPRINT" (CLEAR RVSON RED 
SPACESYMOONCSPACEIPÄTROL TBLACK}" 

104 PRINT"CDOHN4 RVSON}SIETSPACE} ({RVSOF 

E UP32IKEDOUN LEFTZYHLM{RVSON}) TSPACEIMUES 

SENTSPACE}VERSUCHENTSPAGEFVONSPACEI IHRE 

RISPACEIMOND-ASPAGE23BASISLSPACE}ZUTSPAC 

ErEINERTSPACEISTADT" 

105 PRINT"{RVSOFE RIGHT} !{SPACE3'XDOHN L 

EFT3>_'_ EM. 
VSON SPACEIAUFTSPACEIDEMISPACEIMONDESPAC 

E} ZULSPACE23GELÄNGEN. " 

104 PRINT"{DOHN2 RVSON CYANISO{SPACEIEIN 

FACHZSPACE}IST{SPACEIESSPACESFALLERDING 

StSPACEINICHT ! £BLACK>" 












































<1287 
“235> 
<118> 
1423 
<132> 
<77> 
17975 
*251> 
s119> 
x180> 
“16> 
“1789> 
x254> 
<219> 
<104> 
<132> 
<52> 
<55? 
<67> 
<209> 
<4> 
<112> 
x27> 
x204> 
“51> 
<12> 
x32> 
<1297> 
A225 
<168> 
<153> 
<21> 
<231> 
<I> 
<b6> 
<1297 
<73> 
<180> 
<Aa4> 
<177> 
<81> 
<1797 
<204> 
<200> 
<22> 


<185> 


<15> 


<109> 
<236> 
«1205 
2210> 


<196> 


x117> 


<116> 


<96> 


197 G0SLUB300 
108 PRINT"{CLEAR RYSON RED SPACESYMOONES 
PACE>PATROL BLACK" 
109 PRINT"IBOHN RVYSONISIE (SPACEIKDENNENT 
SPACE>MIT {SPACE} IHREMISPACE}NABEN{SPACE} 
SCHIESSEN{SPACE} (F3} {SPÄCEZIUNDTSPAZEISP 
RINGEN!" Bi 
110 PRINT*{DOHN RVYSONFUEBER: ":PRINT"{RVS 
OM3MULDEN{SPACE} (LRVSOEFIFLERVSON}) „{SPA 
CE1O>HUEGEL SPACE} ( IRVSOEFINDERVSONY) „LS 
PACE 103MIENEN{SPACE3 t IRVSDEFIWERWSON}) 
111 PRINT" {RVSON LEFTIL>UND{SPACEBFKUGEL. 
N{SPACE} ( CRVSOFF} TULRUSON}) "PRINT" (DOHN 
RVSON}KOENNEN{SPACE}SIETSPACEIMIT (SPACE 
GREENIFICBLACK SPACE4FHUEPFEN! 
112 PRINT"{DOHN2 YELLOW RVSONYDASTSPACEI 
WAERE SPACE} IASPACEFNOCHCSPACESINICHTS 
PACE3SOLSPACEISCHWER! " 
113 GOSUBS0O 
114 PRINT"CCLEAR RVSON RED SPACESIMOONTS 
PACEHPATROLCBLACK?" 
115 PRINT" {DOHN2 RVSONY IMISPAGCEISPIELISP 
ACE ERSCHEINT TSFACESF MANCHMAL TSPACEFEINT 
SPACE>RORDTER. (DOHN RIGHTS SPACE} (IRKSOF 






































"FE UPFIXDOHN LEFTITERVSONY)“ 





11& PRINT" {RVSON}DEN{SPADCE GREENYMUESSEN 
{BLACK SPACE}ISIEXSPACEIAB-ISPACE3ISCHIES 
SEN „DENN{SFPAGEFUIEBER TSPACEZ}DENTSPACEIKO 
ENNENtSPACEFISIEISPACE>NICHTTSPACEISPRING 





'EN. 


117 FRINT"ERVSON} IHRTSPACEISCHUSSTSPACEI 
HAT{SPACEF JEDOCHTSPÄLEINURCSPACEIEINELSE 
ACE>BEST IMMTEXSPACE4FREICHWEITE. 
118 PRINT" {RVSON>VERSUCHENTSPALEISIEISPA 
CE?ALSOTSPACESFNICHT TSPACEFAUSTSPACEIZUT 
SPACEIGROUSSERTSPACEZFENTFERNLNG CSPACE} ZU 
{SPACEIYSCHIESSEN. 

120 GOSUB300 

121 PRINT"{GLEAR RVSON RED SPACES:MOONTS 
PACE>FATROL <BLACK}" 

122 PRINT" {RVSON DOWN>DATSPACE}IHR{SPACE 
ITANKLSPACEI IMMERTSPACES+WENIGERLSPACEIW 
IRD{SPACE+FLIEGT {SPACES}MANCHMALTSPACEIE 
IN{SPACEISATELLITISPACE} ( CRUSOFFI\{RVSON 
>)”3 

123 PRINT" tSPACEIDURCHSTSPAGCEIBILD!" 

124 PRINT" {RVSON? IHN{SPACEFMUESSENTSPACE 
3SIECSPACE}DURCHTSPACEIHOCHSPRINGENSPAC 
EIMITSPACEIDEM" 

125 PRINT" {RYSONFFAHRZEUGES {SPACE} BERUEH 
RENISPACE2+ (EINSAMMELN) . "2PRINT" CRVSONID 
AMIT{SPACEIWIRDISPACE} IHRTSPACEITANKTSPA 
CE3YEIN"; 

126 PRINT" £SPACEIWENIGCSPACEIGEFUELLT!": 
PRINT"{DOHN2 RVSON YELLOWYIALLES{SPACEIVE 
RSTANDEN{SPALE}?" 

127 GOSUBZ00 

128 PRINT"{CLEAR RVSON RED SPALES>MOONtS 
PACE}PATROLLBLACK}" 

129 PRINT" CDOHN2 RVSONFESTSPACEIWAEREISP 
ACEYSEHRTSPACEIF}WUIENSCHENSWERT ‚WENN{SPAC 
E3ISIEISPACEIALLESTSPACEIVERSTANDEN{SPAC 
E2IHABEN!" 

130 PRINT" {RVSONISOLLTETSPACEIDASTSPACEI 
NICHTtSPACE}DERTSPACE2IFALLTSPACEISEIN,D 
ANN{SPACE3WIRDISPACEZIAUSTSPACE 3 IHREMLSP 
ACEIFAHRZEUG 

131 PRINT" {RVSON3BALD{SPACEFEINTSPACEIWR 
neck nn 

132 PRINT" CDOWN3 RIGHT2YIKTDOHN LEFT2YLM 
"„FORX=155T0OS8STEP-1:POKES6B45, X: NEXT:FO 
RD=1T06000: NEXTD 

133 PRINT" (YP2 RIGHT2IOR{DOWN LEFT2IRP" 






































GSompube miß 


£174> 


<98> 


<B80> 


«2235> 
<45> 
<180> 


“437 


»17> 


22477 


<184> 


<51> 
<1897> 


<50> 
<120> 
<130> 


<aA> 


<A3> 
<164> 
<194> 


<57> 


<122> 


53? 


<172> 


<54> 
<157> 


154 POKE368B78B, 15: POKE34877 ,230: FORX=15STO 
OSTEP—. 13 POKES6878 ,X:NEXT 

140 POKES6877 „0: G0OSUBI05 

141 PRINT" CLEAR RVSON RED SPACESYMOONTS 
PAGEFPATROLTBLACKS" 

142 142 PRINT*{DOHN2 RYSONIDIETSPACEIPUNKTEZ 
AEHLUNGE " 





143 PRINT"{DGHN RIGHTINERVSOH SPACE}; SP 








ACE GREEN>+ZOGLSPAGEIPKTE 


134 PRINT”{BLACK DOWN RIGHT DOWNY”XUP LE 


ET}It{DOHN RIGHT. RVSÜNY: GREEN SPACEI+450 
{SPACEIPKTE 

145 PRINT"{BLACK RUVSON BOHNYNACHTSPACEIT 
EDER{SPACEITEILSTRECKETSPACESYE IGREEN SP 
ACE}+1OOISPACEIPKTE 

145 PRINT"(BLACK RVSON DOWN>BELTSPACEIER 
REICHEN{SPACEIDERTSPACESISTADTSPACEI: TG 
REEN SPACE?+2000 {SPACE IPKTE 

















147 PRINT"{DOWN BLACK RVSONYBEIXSPACEIEX 





PLOSION{SPAGEIDES{SPALESIWABENSE £GREEN 5 
PACE3=400 TSPACEIPKTE 
148 GUSURSOO 





1437 PRINT”<CLEAR RVSON RED SPACES+MODUONIS 


FACEYPATROLTBLACKY" 
150 PRINT" DOWN RESONYDAS{SPAGEISPIELISP 
ACEIISTISPACEIINTSPACEIFLSPACESHABBCHNIT 





TETSPACE}GEBGLIEDERT. SM.LTEFSPACE}I IHRISPA 





CEIFAHRZEUGISPAGCEFAM"S 

151 PRINT" {AVSONIANFANGTSPACEIDESTSPACEN 
3. 1SPALEFAB-ISPACESISCHNITTESTSPACEIEXPL 
ÜDIERT{ISPACE2}YSEIN ,SDISPACEIBEGINNENTSPA 
CE>SIE” 

152 PRINT" {RVSONYNICHTTSPACEIWIEDERTSPAC. 
E}VON{SPAGE > VORNE „ {SPACETSONDERNSPACEIA 
MISPACE+ANFANGTSPATESIDESTSPACEIS. TSPACE 
FTEILES! SPACESFRECHTSTSPALEIOBEN" 

153 PRINT"{RFSOH SPACEIIMISPACEIBILD-KSP 
AGER. >SCHIRMCSPACEIWIRDSPACEYDERTSPACEIA 
B-{SPACEIISCHNITT{SPACEHANGEZEIGT, INISPA 
CE2YDEMISPACE?SIE{SPACEIBERADETSPÄCEISIN 
D 

154 PRINT" {RVYSONIDASTSRACEISPIELTSPACEIK 


















































0 GOTO46 
1 POKE211,X:POKE214,V:5Y858549: RETURN 

2 FRINT"CHOME DUHN2 RVSON BLUE RIGHTEI"S 
C:PRINT"IHOBE RWSON>"TAR(AS)K: IFSCHHSTHE 
NHS=SSCH PRINT" CHOBE RVSON}"TABtLSIHS 

3 RETURN 

4 FORX1=1T05:W8(X1)=RIGHT$ (WE (XL) „ (LENCW 
$(XLII-1I)ENEXT 

5 X=03 Y=10:50SUB1: FORX1=1T05: PRINT" {BLUE 
F"LEFT$ (WECK1) „229 1 :NEXT=RETURN 

46 FOKESA, 28: POKES2,28: : CLR+0=36874:POKE 
0+4 , 15: PDKEO+5 , 30: POKEO-5 , 255: 6DT047 

47 FRINT"(CLEAR RVSON BLACK DOHN RIGHTS} 
MOONTSPACE>PATRDLEDOHN EEFTII 
=" PRINT"{DOHN2 RIGHTIYLRVSON SPACEIBYTS 
PACEFTHOMASTSPACEIRDEDERN 

48 PRINT"{DOHNS RIGHT2 .RVSON CYANIVIELIS 
PACEISFABS! !":G0SUE1360 

49 C$="{GREENIIKIDOHR LEFTZ>LMIBLACK DOH 
H LEFT2 SPAGE23":D$="{BLACK SPACE2 GREEN 
DOHN LEFTZYIKCDONN LEFTZFLMIBLACKY"2SC- 
0: A=15500r:B=-3:K=1 

50 C=39:V=0: I=0:F=0:L=0:P=0+R=0:PRINT"C 
LEARY"CHRE (8) :GOSUB2030 . 

52 FORX1-244710505: FOKE38400+X1 ,OrNEXT=PR 























INT"{HOHE DOWN2Y".FORX1=1T09:PRINT” {BLUE 


>EEEEEEEEFEFRFEFEEEEEEER "5; 5NEXT 
53 FORX1=-8142T08105: POKEX1 „52 NEXT: FORX1= 


<211> 
<202> 


<70> 
<223> 


<106> 
<1489> 
<163> 
<230> 
<129> 


“2153> 


<78> 


s2&> 


2197 


<171> 


<255> 


<1477> 
2227 


&170> 
<145> 
<158> 


<171> 


<251> 


<113> 


<218> 


“110? 


<60> 


<118> 


programme 


ANN{SPACE}DURCH SPACE 23 DRUECKENTSPALEIDE 
RtSPACEI 'F7’ CSPACES>TASTESPACEHUNTERBRÜ 
CHENSPACE4>WERDEN. 

167 BOSUB300: PRINT" {CLEAR}" 

168 FORX=15STO38STEP-i: POKESSB65,X: NEXT 

169 PRINT"{CLEAR RVSOH BLACK DOWN4>HBITTE 
<SPACE? " XCYAN}PLAY BLACK? ' (SPACE}DRUECKE 
N“ 














-170 WALT3?151,64,64:G0SUB200 


171 PRINT"{UPZ RIGHTYKLSPACE RVSONYBYLSP 
ACE>THOMASTSPACEYRDEDERN{HHITEY":FOKE198 
‚3: POKE#S1,151: END 

200 PRINT"ICLEAR RVSBN BLACK+ „ XSPACE2> - 
m IHSPAGEIT „ VTSPACEI | „ l{SPACEF I | 





Il.» ITSPACE> | | I VESPACE> HI I HTSPACEH ITSA 
ACE} = |’CHR$(B) 5 
20& PRINT" 11 4 FIESPACEY I I I IESRACEF (Hi le 


PACE> | „ TSPACEY | | IESPACEZ> | (XSPACEF I IE 
SPACE> | U ITSPACEI I] — | YISPALCEZ> U ISPACE 
3 COXLSPALE> —— KSPACEI 4 ISPACEI 

207 PRINT"IRVSON SPACEZY —. rm m on 
{SPACESY |TSPACE}F | |TSPALEI I{SPALEY |{SPACE 
+ |TSPACE} | IESPACEF | [TSPACESY Y— I SPACE 
3 I{SPALEI HH ITSPACEY I 1" 

208 PRENT"{RVSON SPACEZI |TSPACE2Y |TSPACE 
FITSRACEH JISPACEF | - |TSPACE} | I{SPALES> I€ 
SPACE2> |ASHIFTSPACE} |TSRACE> \{SPACE> |{SP 
ACEI I 

209 PRINT"{RVSON DOWHNZ RIGHTS CYAN>BITTE 
{SPALCE>WARTEN BLACK} s RETURN 

210 RETURN 

300 FORX=155T035STEF-1:POKE35855, X: NEXT 























310 FORY=1TO12:PRINT"{HOME DOHNZI RVSON> 

"LEFTS(F$ ,Y) "{SPACE2I=SPACESPACE+DRUECK 

EN* [3 

320 GETA$: IFA$< >" {SPACE>"THENFORX=1TOLOO 

:NEXTX,Y:GOTDS10 

330 FORX=351T0155: POKES#865 , X: NEXT: RETURN 
ENDE DES LISTINGS 





07020: POKE7746+ INT {RND (0) #194) „263 NEXT 

57 FRINT"{HOHE DOWN2 RVSON BLUEFSCORE: ": 

PRINT" {HOHE RVSON3"TAB(S7) YTEIL: "PRINT" 
{HONE RVSON BLUE DOHN>TANK: "PRINT" CHOHE 
RVSEON BLYEHPANZERS "B"HIGHE "HS 

59 GOSUR2: X=2: Y=17: 60SUB1:PRINTD$ 

&1 ONKGOTOAZ,62,80,70,90,62,70,80,1300 

&2 GOSUB2000 

63 GOSUBL0O: IFLEN (B$) =22THENK=K+1:SC=SC+ 
100: GOSLUIB2: GOSUB2000: GOTDE1 

64 IFV< >OTHEN&S 

65 IFPEEK (8122+V) >A4DRPEEE. {8123+V) >6&0RPEE 
K(CB102+W) =14THEN1LAOO 

46h G017053 

90 SOSUBSZ200 

85 GOSUB100: IFLEN (B$) =22THENK=K+1:5C0=SC+ 
100: GOSUB?2+ GOSUB3S2009: GOTO&1 

84 IFPEER (8100+%) >1F0ORPEEK (B1024V)« >32ZTH 
EN1400 

8a GOTOBS 

70 GOSUBF4A400 

94 GOSUB100: IFLEN {BF} =22 THENK=SK+L:SC=SCH 
100: B0SLIB2: GOSUB3400: GDTO6&1 

95 IFFEEK (B100+V) =Z2Z0ORPEER (810244) =23THE 
N1400 

97 GETO?F4 

106 X=0: Y=19: GOSUB1: PRINT" {BLACK "LEFTSE 
B$ ,Z2I 3 LEFTF(A$, 22) 35 

102 BS=RIGHT$ (B$,; (LEN(BSI-1) I) EAS=RIGHTSC 














Compute mib 


<46> 
<90> 
<155> 


<39>. 
<50> 


<123> 


<95> 


355 


<BB> 


«92> 
x241> 
<F7A> 
<57 


“1587 


x507 


<1706> 
x16> 


©1377 


“36? 
<88> 
<27> 
“111> 


<4> 
<a4> 

<213> 
<208> 
<137>7 
<156> 
x&5> 

<240> 
«1937 
<219> 


225 
<2487 


x76> 


11 


programme 


12 


A ,„<LENAFSI—-1)) 

104 IFV=-22THEN110 

105 BETF$: IFF$="{Ff1}" THENV=-22: A=A-40 
ioä IFF£="{F3H"THENF=1 

107 IFF$=" {E73 "THENWAIT19B,1: POKE198,D- 
110 IFV=-22THENI=1+1: IFZ=OTHENX=2: Y=17:6 
OSUBi:PRINTC$: Z=1 

114 IFI=SATHENX=72; Y=17:GOSUE1:FRINTDF: I=0 
: Z=0: V=a0 

115, C=6+1: IFC=AOTHENG=0: GOSUB4# 

114 POKEO+S,130- (Vr3} 


117 A=sA-10+:PRINT"CHOHE DOWN RIGHTS RYSON 


BLUE" AMLLEFT SPACEFI"s IFAS=OTHENA=SOO0D: 
G0T01409 
t18 IFFE>LTHEN122 


119 POKEBOBO+S , 32: 5=S+1: IFS=10 THENF=D: PO. 


KEBORÖ+S , 32: 5=0: G0T0122 

120 IFS+R}=1&THENZ200 

121 POKE8080+5,27 

122 IFP<3BTHENP=INT (RND(138#39) #L:RETURN 
125 IFF=S8THENLFIO 

150 FOKESOT7S-L ,32:L=1.+1: IFPEER (9075-L3< > 
S2THENL=0: F=0: A=A+1 1003 SC=5SC+209: GOSURB2: 
RETURN 

170 IFL=22THENP=0: L=0: RETURN 

172 POKEBOTS-L ‚28: RETURN 

1979 %=20-R: Y=18: GOSUB1: PRINT" {RED} I1{SPAR 
E DOWN LEFT2ITISPACE BEACK}"SR=R+1: IFR=1 
BTHENI400 
175 RETURN 
200 %=21-R: Y=19:50SU81:PRINT"PIDOHN LEFF 
+2": FORX1=1T019: PDEEO+3 „200- {X1#4) NEXT 
201 X=21-R> Y=18: 505UB1:PRENT"{LEFT SPACE 
2 DOHN LEFT SPACEI"SR=0: P=0:5=0:F=0:56=5 
C+450: GUSUBZ: RETURN 

15300 X=2:Y=17:GOSUB1 PRINTD$: GOSUB3506 
1340 FORX1=1T019: FORX2=1T04:W$ (X2) =RIGHT 
EIWEIX2I „ {LEN WE CKZ23 I 13) sNEXTXZ 

1350 X=0: Y=16:605UB1 5 FDRX2=1T04=PFRINTLEF 
TEiWEICX2) „22) 5 sNEXTX2: FORX2=1 1050: NEXTX2 
„xl 

1355 SC=-SC+2000: GOSUR2Z: POKEO+3 ,0:G0T013& 








R 


5 
1560 Et="stSen#, O4! SROSsEeNnE. DAFR IS" EM= 
M+1: FOKED ,ASC (MID$ TE$ ,M, 1) 3+174: POKEO+1 , 
PEEK (0) 

13681 IFM+1>LEN (E#) THENM=O 

13642 H=H+1: FORX1=1T0150: NEXT: POKEOQ, 0: POK 
EO+1 „0: IFM=OTHENFORX1=1T0500: NEXT:60T013 
60 

1363 IFH>SSTHENH=O: M=0>RETURN 

1354 GOTO1I6Q 

1365 BOSUB1360: PRINT" {HOHE>I"TAB{1S6) "RK 
SONFEINFACHTSPACEISPITZEI TE" 

1366 PRINT" £RIGHTZ RYSON}NOCHTSPACEFEINE 
SPACEHSPIEL?" 

1367 BETF$: IFF$="J"THEN49 

1368 IFFS$< >"N"THEN13647 

1369 3YS 3Z 

14006 Y=17:X=1:5605UB1: PRINT" {SPACES DOUN 

LEFT4 SPACEYSS{SPACE DOWN LEFT4>POOR{DOH 
N LEFT3}PR"sPOKEO+S , 250 

1403 FORX1=15TD0STEP-.1:POKEO-9,37:PDKEO 
-9 , 39: POKEO+4 ,X1r NEXT 

1403 POKEO+3,0:POKEO+A, 15: FORX1=1T010005 
NEXT 

1405 E=E-1: IFBi 1 THEN1500 

1406 ST=5C-400: IFSCXOTHENSC=O 

1407 GOTOISO 














1500 POKEO+3,0: PRINT" THOHE?"TABLIAO) "LRE 


D RUSON>GAMETSPAGCEFOVER! ": FORX1=1T040: FÜ 
RX2=220-X1 T0160-X1STEF-4 


1501 POKEO+2,X2:NEXTX2:FORX2=16&0-X1T0220 


x93> 
$117> 


195> 


SZ 


=32> 


ur 
s213> 


x890> 
<84> 


1857 


«51> 


“2> 

x230> 
<108> 
<240> 


<I> 
x87> 
<113> 
<151> 


<108> 
=7> 


<146> 


-X1STEP4:NEXTX2,X1:FOKEO+2,,0: GOTOLS6& 

2006 A$="@ABCDBCBDGABCDABCACATDCABCHEARE 

BCECRCDEASERBAABDBBDHCEAACB@GISABLCEERT" 

2001 AF=AS+"@ABCDABBLEAHIFIDDEABCHIEABBE 

ECHDEAADLF LEABCDEE@ACHGI@ABCDAHIDAAFIABC 

ADDCEDFI 

2002 AS=A$+ "SACEEBLDEDGABLEEL@ACBDGIHIER 

BCEEBABRCEEACEAHTEAABFIACB@ABG IDDEREECA® 

THDEBCAE 

2003 At=As+"ABFI@EBDDBCAERABBCHBBABCEARC" 

2004 BE="RIGHTSOIND{SPACE RIGHT223NDTSP 

ACE RICHT 

2005 B$=B4+" {RIGHTISIYNOTSPACE RIGHTI&IND 
{SSRACE RIGHT32INDOTSPACE RIGHT2I" 

2006 B&=B$+" {RIGHTSIND{SPACE RIGHTISHNDT 

SPACE RIGHTA)NOTSPAGE RIGHTZZYNDTSPACE R 
IGCHTL7FY" 

2007 B#=B$+" {RIGHT223" RETURN 

2030 W$ (1)="EEEEEEEFEXVEEEEEEEEEEXVXVEEE 

EEEEEEXVEEXVEEEEXVEEEEEEEEEEEEEEEE* 

2032 WE (2) ="EEEEEEEEX ISPÄACERFYVKYXYEEEEXt 

SPACE4>VEEEEEEEX{SPACE2IVXTSPACEZIVEEXTS 

PACE2*VEEEEEEEXVEEXVEE" 

2033 W$ (3) ="EEEXVEEXTSPÄCESIVEEXTSPACES} 

VEEEEEX{SPACESI YXCSPACES) VEEEEEX {SPALEZI 

VKISPACEZIVE" 

2034 WECH="ERKTSPACEZIYXLSPACELOIVXTSPA 

CESIVEEEXTSPACELSIVEEEXTSPACESIY" 

2035 WE (SI=UEXTSPACE2EYVEXTSPACEIBIVEXTS 

PACE103 "RETURN 

3200 B$=" {RIGHT21FTISPACE RIGHTSIT{SPACE 

IT{SPACE RIGHTZ3ITULSPÄCE RIGHTSYT{SPACE 

RIGHTIFTLUICSPACE RIGHTAYTU{SPACE RIGHT5HU 
{SPACE RIGHT#}T 

32041 BS=BS+"UUCSPACE RIGHTTYTISPAGE RIGH 

TS>T{SPAGE RIGHTA>TESPACE RIGHTSFTULSPAC 

E RIGHTSIYUISPACE RIGHISYTUTSPACE RIGHT#3 
T{SPACE RIGHTSYTULSPAGE RIGHTS>UTSPACE R 
IGHT 

3202 B$=B$+" {RIGHTZ4}" 

3203 A$="EEEEEEEEEEEEEEEEFEREEEEEEEEEEEE 

EEEEEFEEEEEEEE" 

3204' FORX1=11T02: A$=As+A$: NEXT: RETURN 

Z40Q Erg=" CRIGHTZIIWESPACE RIGHTSIWISPALE 
RIGHTSIW{SPACE RIGHTSIWISPACE RICHTEIWE 

SPACE, RIGHTSIWISEPACE, RIGHTSYWISPÄCE RIGH 

7143" 

3401 BS=B$+"{RICHTTIWISPAGE RIGHTSHWWWIS 

PAGE RIGHTSYWESPACE RIGHTSSWISPACE RIGHT 

S3WISPACE RIGHTSIWISPACE RIGHTSIWISPACE 

RIGHTIOIWISPACE RIGHTBIW<SPALE RIGHT 

3402 B$=B$+" {RICHTZIWESPAGE RIGHTSPWESPA 
CE RIGHT4>WISPAGE RIGHTSIWISPAGE RIGHTS} 

WISPACE RIGHTFFWISPACE RIGHTSIWISPACE RI 
GHT 

3403 A$="EEVEVEVEVEEEEVEVEEVVYEEVEVVEEVE 
VUVVEVEVEVEVEVVVVVVEEEEEVEVVVEVEEEVEVEVE 
VEVEVEY" 

3404 AS=A$+"EEVEVEVEVEEEEVEVEEVVVEEVEVVE 
EVEVVVVEVEVEVEVEVVVVVVEEEEEVEVVVEVEEEVEV 
EVEVEVE" 

3405 A$=A$+"EEVEVEVEVEEEEVEVEEVVVEEVELWWE 
EVEVVVVEVEVEVEVEYVLVVVEEEEEVEVVVEVEEEEVE 
EEVVVVE" 

3406 RETURN 

3500 WECHI="LRICHT2II!XSPACE RIGHTZY!XSP 
ACE RIGHTSY!SSPACE RICHTI2Y" 

3501 Ws (21=" (RIOHTZI?. IT ESPACE RIGHT). ft 


MAD FER . TEHT23I4 SP 






































[ TEN sn rare RIGHT12 nn 
3503 3 W$E(4)=" (RICHT23I$__{SPACE RIGHTIS__ 


_SISPACEI FESFACE RIGHT12>":RETURN 





Compute mib 


<16> 


<200> 


x223> 


2045 


<204>. 


«1627 


«181 > 


<188> 


<1> 


<233> 


A237» 


<53> 
<1997> 


<707 


<71> 


*173> 
<24> 


“213? 
<135> 


697 


*36> 


«1195 


x1497> 


<115> 


<235> 
<235> 


<I94 > 
ag3r 


2435 





Programme 
Ihr Auftrag: retten Sie Ihre Mannen! 


FALCON’S LANDER 


Für VC-20 mit 8K-Erweiterung 


Falcon’s Lander ist ein grafisch 
hervorragendes Spiel für den 
VC-20, Sie benötigen viel Ge- 
schick und einen Menge Finger- 


spitzengefühl. 


Beide obengenannten Eigenschaf- 
ten werden Ihnen bei Ihrer Mis- 
sion sehr helfen. Steuern Sie Ihre 
Raumfähre durch die Höhle und 
retten Sie alle Leute, Dazu müs- 
sen Sie auf den Plattformen lan- 
den. Achten Sie außerdem auf die 
Felsbrocken, die in den Gängen 
der Höhle herumschwirren, Steu- 
ern Sie genau, sonst geht Ihr 


einer Rauchwolke auf und das 
Spiel ist zu Ende. Vorsicht ! Ihr 
Raumschiffsinkt im Flug. Verges- 
sen Sie daher nicht, öfters leicht: 
nach ober zu steuern. 


Das Spiel besitzt drei verschiede- 
ne Höhlen, die durchilogen wer- 
den müssen. Achten $ie auf Ihren 
Treibstoff, denn er ist begrenzt. 
Gesteuert wird mit dem Joystick. 


Vor dem Laden folgende POKEs 
eingeben: 


PORE 44,32: POKE 8192,0 


Krisenstab bei der Arbeit: »Hier sind die Eingeschlossenen« 


VCZO LISTINGE + CHECKSUMMEN (VC V1.0) 





1 FOKES6879 ,14:PRINT"{CLEAR HHITE DOWN S 
PACE+FALCONISPAGEIGLUBLSPAGEIPRESENTS{SA 
ACE4 DOWN SPACE+FOR{SPAGE}THEISPACEIVICT 























SPACErZO <B4: 
2 PRINT"{BLUE DOWN RVSON> 
£SPALEFTHE{SPALCEIFALCON "SISPAGEIL 

‚ANDER. {SPACE} <91> 
3 PRINT"{RED SPACEFWRITTENTSPACEIANDISFA 
CE>DESIGNED{SPACEZ DOHN BLUEFLIBSCSPACE} 
BY{SPACEIH. TSPALEHAKBIYIE <234> 
4 PRINT" {DOHN2 YELLOW> (C) 1FBS{CSPACEIBYTS 
RACEIFALCONISPACEISOFTEDOHNZ CYAN SPACE2 
3WAITISPACEZIT{SPACEIAMCSPACEFREADIND <229> 
5 FORI=4508T04399: READA= POKEI ‚A: S=S+A: NE 
XTı IFS< >1 19471 THENPRINT" CCLEARFFEHLER" <212> 
& LGAD"TEILTSPAGEI2" «196> 
7 DATAO,0,0,165,172,74,74,74,72,165,175, 
74,78,74,170,160,16,104,24,105,22 <122> 
8 DATA144,1,200,202,16,247,133,0,132,1,7 
64,165,173,74,74,74,10,10,10, 155,64 <148> 
9 DATAS5L,165,173,229,64,133,64,32,80,18, 

165,172,74,74,73,10,10,10,133,64 «227> 

| 10 IATAS56,165,172,229,64,168,240,6,32,14 

| 0,18,154,209,250,32,3,18,94, 166,64 "7 <190> 
11 DATA140,0,195,56,28,197,50,3,185,72,2 
9,157,04,3,232,200,192,16,208,238 <53> 
12 DATAF4,0,0,0,0,0,0,0,232,200,196,3,20 
8,258,76, 1460,0,166,64,185,152,30,157 . <Trı> 
13 DATA60,3,185,169,30,157,84,5,232,200, 
196,3, 208,239,96,162,25,24,126,60 <1> 
14 DATAN3,126,84,5,1264,108,3,202,16,243,7 
6,1652,71,169,0,157,60,3,202,16,250 <i14> 
15 DATA76,32,19,32,32,2,32,32,3,32,32,32 
„160,27,169,248,24,105,8,144,1,200 *95> 


Raumschiff bei einer Kollision in 


1& DATA202,16,247,133,64,132,65,968,0,32, 
3,18, 162,0, 160,0,32,215,18,1&0,1,32 

17 DATA214,19,160,2,232,189,169,19,145,0 
‚152,24,105,22,168,192,645,144,241 

19 DATA94,32,3,18,162,0,160,0,32,248,18, 
160, 1,32,247,18,160,2,232,177,0,157 

19 DATA167,19,152,24,105,22,1588,192,55,1 
44,241 ,96,162,8,189,169,18,134,B0 

20 DATA170,32,178,18,165,80,10,10,10,170 
.‚140,0,177,54,157,8,27,2532,200,172 

21 DATA9,208,245,1664,80,202,16,223, 94,32 
„156,18,32,7,19,169,0,133,10,1&2,71 

22 DATA199,60,3,61,8,27,240,4,169,1,135, 
10,189,60,3,29,8,29,157,8,29,202,16 

23 DATA232,9&,32,3,18,162,33,150,0,32,78 
,„19,160,1,32,97,19,160,2,232, 138,145 

24 DATAO,24,152,105,22,158,192,65,144,24 
3,96,0,0,0,32,230,18,32,7,19,32,156 

25 MTA19,32,49,19,76,80,19,169,127,141, 
34,145,173,32,145,41,129,133,0,16# 

26 DATA255,141,34,145,173,31,145,41,28,2 
4,101,0,135,0,201,156, 208,44 76,43 

27 DATALF,234,234,234 ,201,289,208,3, 76,20 
7,19,201,140,208,3,76,215,19,201,152 


28 DATA208,3,76,197,19,201,148,208,225,3, 


2,197,18,230,173,76,114,19,32,197 

27 DATA18,198,173,76,114,19,32,197,18,23 
0,172,768,114,19,32,197,18,198,172 

30 DATA76,114,19,0,0,0,0,0,0,0,76,160,50 
+76,106,31,162,16,173,4,144,201,155 

31 DATA208,249,202,16,246,32,129,19,32,5 
9,30,166,10,240,228,76,210,21,169 

32 DATA255,141,161,2,32,15,21,234,254 ,23 
4,234,169,207,141,5,144,169,14,141 

35 DATA15,144,234,234,234,169,8,133,172, 
133,173,32,114,19,76,236,19,169,15 


34 DATA141,14,143,162,240,134,0,154,1,14. 


2,12,144,160,80,136,208,253, 202,224 
35 DATA176,208,243,166,1,202,202,224,192 
‚176,233,166,0,202,202,224,194,176 


Sompute mib 


<1135> 
<70> 
<123> 
<244> 
x72> 
<181> 
<21> 
<205> 
<105> 
<115> 
<44> 
<75> 
<91> 
136? 
<241> 
<188> 
<o> 
<38> 
«240> 


xa6> 


13 


14 





programme 


3 DATAH223,169,0,141,12,144,234,234,234, 
169 ,97,160,20,76,30,203,19,13,13,13 

37 DATA13,13,13,13,13,135,13,5,29,29,27,2 
9,29,8,18,29,71,65,77,69,32,32,79 

58 DATAS6,49,82,0,32,42,20,254,120,160,8 
„140,15,144,173,4,144,201 ,42,208,249 

39 DATA160,14,140,15,144,175,4,144,201,1 
30,208,249,160,8,140,15,144,175,4 

40 DATA144,201,155,208,249,173,31,145,41 
‚32,208,213,169,8,141,15,144,88,76 

41 DATA114,30,0,0,0,0,0,0,0,162,0,189,81 
„22,157,22,16,199,55,23,157,250,16 

42 DATA232,208,241,96,162,0,189,59,24,15 
7,22,16,1689,26,25,157,250,16,232,208 

45 DATA2A1,95,162,0,199,27,26,157,22,16, 
199,255, 26, 157,250,16,202,2098,241 

44 DATA96,174,161 ,2,232,224,3,208,3,76,4 
6,21,142,161,2,224,0,240, 194 ,224,1 

45 DATA240,198,76,228,20,32,246,20,180,0 
‚1985,22,16,170,189,764,21,153,22,148 

46 DATR195,250,16,170,189,96,21,153,250, 
148,200, 208, 233,234,234,96,162,15 

47 DATA142,14,144,160,160,132,0,140, 12,1 
44 ,162,64,202,208,253,200,48,235,164 

48 DATAO , 290,200 ,200,48,236,206,14,144,1 
6,229,169,0,141,;,12,144 ,169,160,160 . 

49 DATA21,52,30,203,76,151,20,0,0,0,1,11 


6,6,6,&6,6plylglyhplyiptsiyisiyi,l 
So DATA1,1,6,6,6,6,6.6,6 6,3430 5s1slo1s1 
lsis1,1,1,1,0,5,5,333334757473757 
Sı DATA7,7,7,747435, 39396, 6,12,19,15,95,9, 
9,18,32, 32,5,89,79, ES, 32, 30, 77, 65 


52 DATA&9,69,32,31,73,84,32,156,76,65,78 
‚60,69,82,32.0,32,32,1,32,32,1,32 

53 DATAS2,1,32,32,68,32,32,63,32,32453,1 
&2,8,189,149,18,221,201,21,208,6,202 

54 DATA15,245,76,91,31,162,8,189,169,18, 
221,192,21 ,200,45,202, 16,245,32,3 

55 DATAIN,24,185,0, 105,21 ,133,0,144,2,23 
0,1,160,0,177,0, 201 ,32,176,7, 169, 32 

56 DATA145,0,52,233,30,169,0,133,10,32,1 
99 ,19,32,199,19,76,236,17,76,128,20 

57 DATA160,147,131,143,146, 133, 106,48,48 
‚48,48,48,160,134,149,1535,140,186 

59 DATAS2,48,48,48,5,5,5,5,5,5,7,45444,4 
,4,5,32353,3575141,1,1,0,0,0,0,0,0 

5? DATAO,0,0,21,25,26,27,28,25,26,27,2B, 
6,6,27,29,25,26,27,28,25,26,6,5,& 

60 DATA22,32,32,32,32,32,32,32,2,6,21,32 
32,32,32,32,32,32,32,4,21,24,21,32 

&1 DATAS2,32,32,32,32,2,6,9,4,3,32,32,32 
.32,32,32,32,32,4,6,22,32,32,32,2 


<13> 


“182> 


x23> 


«108> 


2453 


2973 
sBl> 


“141> 


"<x1475 


%177> 
<179> 
<127> 
<134> 
<13> 

<191> 
<117> 
<200> 
<27> 

«220% 
<127> 
<216> 
<174> 
«557 

<101> 
<212> 


<al> 


1 ECLR:FORI=25300T08054: READA: POKEL „Aı5=5+ 
AzNEXT= IFS< >99221THENPRINT"(ELEAR RVSONY 
MISTAKE”END 

2 PRINT"<DOHN KHITE RIGHTFPRESS{SPACEIFI 
REISPACEYTOTSPACEISTART ! ":5Y85251 

3 DATAA,S,32,32,32,32,32,32,32,32,32,32, 
32,32,32,32,4,6,21,32,52,24,21,32 

4 DATA32,32,2,3,32,52,32,32,2,61,5,32,32 
„32,2,6,22,32,32,25,22,32,32,2,6 » 

5 DATAS,„S,2,3,32,4,5,32,32,32,52,4,6,21, 
72,32,24,21,32,32,23,5,4,6,64,21,32 

6 DATAS2,32,32,32,32,32,2,6,22,32,32,23, 
22,11,12,24,3,2,5,25,4,3,31,32,32 

7 DATA32,32,372,4,68,21,32,32,24,21,32,32, 
23,6,5,32,32,32,4,6,1,1,1,32,32,32 

8 DATA23,22,32,32,23,22,32,32,24,22,32,3 
2,32,32,32,24,6,6,28,32,32,32,24. 

4 DATA21,52,32,24,21,19,20,23,21,32,32,3 


Sompute mit 


<247> 
A597 

A772» 
“2323 
<109> 
<204> 


<152> 


<Z247> 


62 DATAS,2,6,8,3,32,4,3,32,32,32,32,32,3 
2,32,32,24,21,32,32,32,4,6,6,6,6,6 
63 DATAS,2,6,3,29,32,32,32,32,32,32,23,2 
2,32,32,32,32,25,4,6,6, 646,5, 4, 4,& 
64 DATA1,1,1,3,32,32,24,21,32,32,32,32,5 
2,32,26,28,4,6,62,61,6,6,5,27,28,25 
65 DATA32,32,23,22,32,32,32,32,32,52,32, 
32,32,4,6,6,6,5,32,32,532,32,32,32 
66 DATA24,21,32,32,32,2,3,32,32,32,32,32 
„26,27,28,32,32,32,32,32,32,32,23 
67 DATA22,16,17,18,4,6,3,32,32,32,32,32, 
32,32,32,32,32,32,32,32,32,29,21,32 
68 DATA32,32,32,23,22,32,32,32,32,32,32, 
32,32,32,32,2,61,62,61,6,22,30,32 
69. DATA32,32,24,6,3,32,32,32,32,32,32,32 
,32,32,26,27,28,4,6,6,6,141,1,5,4 
70 DATA21,32,32,31,32,32,32,32,32,32,32, 
32,32,32,23,6,5,26,27,28,32,32,4,3 
71 DATA2,6,1,1,1,3,32,32,52,32,32,32,24, 
21,32,32,32,32,32,32,32,4,5, 25,26 
72 DATA27,28,4,62,3,32,32,32,32,23,22,32 
32,32,32,32, 32, 32,32, 32, 32 „32,32 
73 DATA32, 32,24, 21,16,17,18,19,24,21,32, 
32,32,32,32, 32,32 „32,32, 32, 32, 32,32 
74 DATAS2,4,5,32,32,32,52,23,22,11,12,13 
„18,15,2,61,3,2,3,2,3,32,32,32,32 
75 DATASZ2,32,32,32,24,21,32,32,32,32,32, 
4,6,6,6,6,6,6,3,32,32,32,32, 32,32 
74 DATA2,6,22,32,32,32,32,32,32,24,5,4,5 
„4,5,4,3,32,32,32,52,2,5,24,21,32 
77 DATR32,32,32,32,2,5,32,32,32,32,32,32 
„4,3,32,32,2,5,32,23,6,62,61,63,65 
78 DATAG3,6,62,61,61,62,61,61,61,61,5,61 
,62,6,62,61,6,255,21,26,26,27,28,6 
77 DATA3,32,32,2,27,28,4,6,5,5,25,28,26, 
6,6,6,22,32,32,32,32,4,6,3,2,6,3,32 
80 DATA32,4,5,32,32,32,32,4,21,24,21,32, 
32,32,32,32,4,6,5,4,21,32,32,32,32 
81 DATAS2,32,32,32,32,4,6,22,32,32,32,2, 
3,2,6,3,32,4,3,32,32 ‚32,32,32,32,32 
82 DATas2, 32 24,21,32, 32,32,23,6,5,6,6,3 
,2,6,3,29,32,32,73242,3,32,32,25,22 
85 DATAS2,32,52,24,6,8, s ,5,6,6,5, 4,61, 
‚1,6,21,19,20,24,21,11,12,13,23,6 
84 DATAG,6,28,4,6,62,61,6,5,27,28,25,32, 
32,32,23, 22, 32, 32, 32,24,6,6,5,32, 32 
85 DATAA, &, E 5,32,52,32,32,32,32,32,24,2 
1,32,32, >, E PB 5, 32, 32 „32,32,26,28 
86 DATAS2,32,32,32,32,32,32,2, 6,22,16,17 
„23 

ENDE DES LISTINGS 


2,32,32,24,27,5,32,32,32,32,23,22 

iO DATAZ2,32,4,5,32432,24 3,21 532,32,63,63 
,63,5,32,32, SD ,32 32 432, 24,21,32,32 

11 DATAS2,32,32,32,4,22,14,15,4,27,5,32, 
32.32.32, 2,3, 2,620, 32,32,32,32,32 

12 DATA32,24,5,32,32,32,32,32,32,32,32,3 
2,4,6,5,24,21,30,32,32,32,32,2,5,32 

13 DATAS2,32,32,32,32,32, 2,3,32,2,5,246, 
6.&,1,1,1,62,6,62, 01 61,62 ,61,61,62 
14 DATAL1.6,6,22,5,62,6,6,62,21,26,27,28 
„25,26,6,21,25,26,27 ,28,25,26,27,28 

i5 DATA25,264,27,28,25,23,22,32,32,32,32, 
2,6,21,32,32,32,32,32,32,32,32,32 

16 DATA32,32,32,32,24,22,32,32,32,32,4,6 
,22,32,32,32,32,32,32,32,32,32,32 


|17 DATA32,32,32,23,22,32,52,532,32,32,4,6 


‚3,32,32,2,62,61,5,2,62,61,5,52,52 

19 DATA24, 21, 32,32, 32, 32, 32, 32 ‚24,22,3>, 
32,23,22,25, 26, 27, 28, 25, 5 32, Sau = 
17 PATA22,32,32, 29, 32, 32, 32,24 „21,32, 32, 


<A9> 
462 
%195> 
x214> 


“295> 


x170> 
x117> 
<93> 

R2RF> 


<79: 


$127> 
<22> 
x44> 
“187% 
<90> 
<105> 
2997 
<175> 
“2207 
1357 
<178> 
96: 


1451-93 


«105> 
ar 
19> 
“2387 


<115> 


175 
«2485 
“2443 


<255> 





ee ee erg 


wem rn 


24 ,21,32,32,32,32,32,32,32,32,24,21 

20 DATAZ2,32,6,1,1,3 8,22,324324 2322,32 
„32,32,32,32,32; 52,32,23,22,32, 32 

21 DATA9,27,28,4,6,5,324,32, 24,21 ,32432,3 

2,2,3,2,61,62,6,22,32,32,32,32,32 

22 DATA32,4,3,32,52,4,22,32,32, 32,26,27, 

28,25, 26,6,22,32,32,32,32,32, 32,2 

23 DATAS.S?,32,32,24,3,32,32,32,32,52,32 
„32,24 ,21 ,32,32,32,32,32,2,24,32,32 

24 DATA32,32,23,21,32,32,32,32,32,32,32, 
23,22,52,32,32,32,2,5,32,32,32,32 

25 DATA32,32,4,3,32,11,12,13,14,15,24,21 
32, 32,32,2453,30,32, 32,32,32,32,32 

24 DATA32,4,3,324,32,32432,32,23,22432,32 
1256,61 ,6,1,1,1,5,32,52,32,32, 24,3 

27 DATAS2,32,32,32,24,21,32,32,4,9425,26 
127,28,25,27,32,32,32,2,5,24,62,61 

38 DATASZ.32,25.22,32,32 32,32,32,32,32, 
32 ,32,32,32,82,2,5,2,5,27,28432,32 

29 DATA24,6,3432,32,32,32,32,32,32,32,32 
„32,2,5,2,5,32,32,32, 32,32,23,22,23 

30 DATAS,32,32,32,32,32 \32,32,32,32,24,6 
2.5,32,16,17,18,19,20,24421,24,5,32 
31 DATAS2.32,2,3,32,32,32,32,4,6,35,32,32 
,32,32,32,32,23,6,5,32,32,32,2,5,4 

32 DATA3,32,32,32,32,4,6,3,32,32,32,32,3 
2,24,21,32,2,3,2,5,32,32,25,30,32 

33 DATAS2,32,32,4,6,3432,32 „324324,23,22, 
2,6,6,6,61,62,61,62,5,131,1,61,62 

34 DATA&,6,62,63 163,63 ,6,255,60,66,153,1 
61,161,153,66,60,85,170,85,85,85;85 
35 DATA9S,85,1,7,7,15,31,31,127,255,128, 
128,172,224 ‚224 ,252,252,255, 255,127 

36 DATA127,63,63,31,7,1,255,2595,252,240, 

224,224 ,192,128,255, 295, 255, 255,255 

37 DATA2S5,255,255,0,1,7,15,30,28,56,56, 
60,63,31,30,12,16,32,112,0,0,192,224 

38 DATA240,112,56,56,120,248,240,240,96, 
16,8,28,0,0,0,0,0,0,0,0,0,0,0,0,0 

Z9 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,21,14,7 
‚14,20,0,0,0,0,0,0,128,0,0,0,0,1,0 

40 DATAO,0,1,0,0,0,80,224,112,232,64,0,0 
„0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


41 DATAO, 0,0,0,0,0, 255, 254 ‚254,254 ,252,2 


48,2498,252 ‚248,240, 248,252,249,252 

42 "DATA254, 252,255, 127,31,63,31,15,31,15 
,31,63,127,63,15,31,63,127,255,127 

43 DATA125,60,56,56,16,18,255,255,127,12 
7,59,59,17,17,255,255,225,203,129 - 

44 DATA129,0,0,255,255,238,228,196,192,1 
28,128,24,24,0,65,88,89,24,60,24,25 

45 DATA2,60,38,88,24,60,24,24,0,60,90,87 
‚24,60 ,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

46 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
»0,0,2,15,31,61,56,112,112,120, 127 

47 DATA6Z,61,24,32,64,224,128,128,192,22 
4,224 ,252,252,255,0,0,0,0,0,0,0,0 


<166> 
<&0> 
<24> 
<159> 
x93> 
<a7> 
«156> 
<149> 
<226> 
<19> 


<247> 


<170> 


sah} 
«t146> 
<3> 
<1697> 
S2A7: 
<{170> 
<138> 
“30> 
<2007 


£<236> 


z100> - 


“232> 
<36> 
<186> 
«2527 
«85> 


<b4> 








Schützen 
Sie die Tierwelt! 


‚Frogger wird wohl jeder schon 


programme 


48 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 
6,120,60,30,60,126,63,30,60,126,63 
47 DATASL,15,31,15,6,0,0,192,240,752,248 
‚208, 128,16,56,100,76,126,102,103 
50 DATA51,16,124,108,100,39,54,18,19,48, 
120,104,100,38,58,118,124,126,66,194 
51 DATALF4,194,194,254,0,112,16,16,24,24 
‚24,126,0,126,2,254,192,192,194,254 
52 DATAO,124,4,254,6,6,6,25440,136,1386,2 
54,12,12,12,12,0,252,128, 254,6,6,134 
53 DATA254,0,124,64,254,194,174,194,254, 
0,248,8,62,12,12,12,12,0,124,68,254 
54 DATALF4,194,174,254,0,124,69,126,6,&4 
134 ,254,0,24,62,112,96,56,98,62,28 
55 DATA24,60,52,38,124,120,110,98,0,120, 
31,18,18,50,126,7,8,28,189,255,255 
56 DATA2SS,255,255,0,128,209 ,251,255,255 
„255,255,170,170,85,85,170,170,85 
57 DATABS,162,7,24,126,98,28,126,96,28,1 
26,104,28,126,112,28,126,120,28,144. 
58 DATAF,24,189,88,28,105,129,157,88,28, 
24,62,160,28,62,152,28,62,144 ‚20,62 
57 DATA136,28,62,128,28,199,160,28,105,0 
‚157,150,28, 202,16, 202,96,11,2,206 
&0 DATAS7,30,16,8,169,21,141,57,30,76,17 
1,19,206,58,30,16,36,169,2,141,58 
&1 DATASO,32,0,30,234, 234,239 ,162,7,169, 
248,28,72,189,240,28,157 „248,28,187 
&2 DATA232,28,157,240,28,104,157,232,28, 
202,16,233,96,162,21,187,28,22,157 
63 DATAO,16,189,50,22,157,0,148,202 
41,75,5,20,160,7,162,4,254,7,16,189 
64 DATA7,16,201,57,208,9,169,48,157,7,1& 
„202,16,238, 1356, 16,2353,96,162,3,222 
&5 DATA18,16,189,18,16,201,47,208,8,1679, 
57,157,18,16,202, 16,238, 162,3, 189 
&6 DATA18, 16,201 ,48,208, 15, 202,16,246,23 
0,10,169,207, 160, 30,32, 30,203,76,254 
67 DATA19,76,233,19,19,18,5,52,32,79,85, 
84,32,79,70,32,70,85,69,76,32,76,65 
68 DATA7B,68,69,82,32,32,0,152,15,132,14 
‚144,160,224,140,12,144,162,240,202 
67 DATA20B,253,200,200,245,20&, 14.194,16 
„238,169,0,141,12,144,76,134,30,162 
70 DATA1.142,14,144, 180,176, 140,12,144,1 
49,11,144,162,64,202,208,253, 200,49 
71 DATA245,172,12,144, 200, 200,200,48,234 
„174,14,144 ,252,224,15,208,221,169 . 
72 DATAO,141,12.144.141,11,194,96,169,64 
„160,31,32,30,203,76,8,31,19,13,18 
75 DATA30,32,32,84,92,69,32,84,72,69,32, 
78,69,88,94,32,76,69,06,69,76,32,32 
74 DATAO,32,54,31,32,134,30,32,134,30,32 
„134,30,76,10,20,173,141,2,201,7,208 
75 DATA3,76,91,31,76,236,19 

ENDE DES LISTINGS 


‚i6,2 


<83> 
<187> 
<165> 
<107> 
<71> 
aa 
<12> 
<233> 
<15> 
<78: 
«75> 
<255> 
<166> 
S1a4> 
<i6> 
<«13> 
<6R5 
<152> 
<1B6> 
<129> 
<1445 
<104> 
<6> 
<108> 
<47> 
<141> 


<1597 
<221 7 


Für die Grundversion 


des VC-20 


Nach dem Erfolg von Frogger auf 
zahlreichen anderen Computern, 
bieten wir ihnen das beliebte 
Frosch-Spiel nun auch in der 
VC-20 Version an. 


einmal gespielt haben. Wer es 
noch nicht kennt, für den noch 
einmal eine Erklärung zum Spiel: 


GSompute mi 


Sie steuern einen kleinen Frosch 
zu seinem Laichplatz. Viele Ge- 
fahren muß der Frosch dabei 
überwinden. SO darf er sich nicht 
von rasenden Autos überfahren 
oder von Krokodilen fressen las- 
sen. Passen Sie auch auf, daß kein 
Krokodil auf dem Platz wartet, 


den der-Frosch einnehmen soll. 


15 


16 





programme 


REM 
‚REM #* 
REM # 
REM # 
E 2 
* 


BRUNNEN EHER 
SPIELHALLEN # 
HIT = 

FRÜGGER + 
CREATED BY * 
BRENNER SOFT* 
*COPYRIGHT (95) # 
REM Mare 
REM # PART ONE * ” 
REM KUH RHRaaernR 
x=78344 X1=7702: X2=8164: X3=74B0 
7=-39554: Z1=38400; 22=36884 
REM BILDSCHIRM 
POKE36879 ,B8=3PRINT" CLEAR: " 
FORA=0T021 
POKEZ1+A,7 
POKEX3+A,42 
NEXTA 

FORB=1T021 

POKE (Z1+22) +21 ,25 21=21+22 
POKEX1+21 ,83: X1=X1+72 

NEXTB: 21=384090: X1=7702 
FORC=21TOOSTEF-1 

POKEZZ+C,7 

FOHEX?+C, 42 

NEXTC 

FORD= (Z2-22) TG (Z1+22) STEP-22 
FORD=1Z2-22) TG (21+22) STEP-22 
POKED,2' 

NEXTD 

FORE= (X2-22} TOX1STEP-22 

POKEE ,83 

NEXTE 
250 REM ABFRAGE 
260 PRINT"IDOHMII RIGHTZ KHITE RVsbnsch 
VSOFFI=TSPADEFSPIEL{SPAGEFSTARTEN" 
270 FRINT"{DOHNZ RIGHTZ WHITE RYSOHIALRF 
SOFFF=LSPACEIZFANLEI FUNGT{SPAGEZY” 
280 PRINT"THOHE DOHNZ RIGHTZIWILLKOMNENT 
SPACEFBEIM{RIGHT3Y" 
230 PRINT"{POHN RIGHT3FSFIELHALLEN-HITTR 
IGHT3I®Y" 
295 FÜRG=1T07 
296 READA(G) 
297 NEXTG 
299 FORF=7T913 
300 FORF=7 TO1S 
310 FOKEZ+F,7? 
312 NEXTF 
315 P=FEEKI197) 
316 IFP=41 THENGBOTOLOOO 
317 IFF=17THENGOTOGSSO 
319 6-1 
320 ONGGOTO3IO,340,350,360,370,380,390 
325 GOT0400 
330 POKEX+7 ,At1):6=6+1:60T0320 
340 POKEX+8,A12) :6=6G+1:601T0320 
350 POKEX+9,A1F) :G=G+1:G6DT0320 
360 POKEX+10,A(4).:6=641:60T0320 
370 POKEX+11,A(SI :G=G+1:G0T0329 
380 FOKEX+12,A (8) 36=G+1:60T0320 
390 POKEX+13,A1{7):6=03 
400. FORW=7T013 
410 POKEX+W,32 
460 NEXTW 
470 FORJ=1T0100: NEXTI 


480 6010315 
550 REM ANLEITUNG 


560 POKE36869,242 
570 PRINT" {CLEARY" 


REM 
REM 
REM 


SONPOBUN-D 


10% 
116 
120 
150 
140 
150 
i60 
170 
180 
170 
200 
210 
220 
230 
2409 





<ı81> 


“1277 
41295 
<212> 
x14> 
202> 
<1706> 
<1B8> 
<27r 
$1970> 
41243 
“1373 
<1d1> 
<3B> 
<204> 
<154> 
<33> 
74> 
<250> 
<251> 
<a? 
<33> 
<195> 


<247> 


<120> 
*178: 
<189> 
<1997> 
<51> 
<220> 
<120> 
<106> 
x252> 
<354> . 


<40> 
<94> 
2287 


x54> 
143> 
<147> 
<58> 
<234> 
<235> 
<190> 
<71> 
<254> 
<20> 
<1009+ 
<126> 
<253>+ 
<135> 
«19> 
<41> 
<h3> 
21925 
<216> 
<240> 
<9> 
<113> 
2148 
<255> 
<60> 


x533?2 
«218> 


<161> 
<70> 


590 PRINT"”I{DOHN SPACESI_{SHIFTSPACEI_ISH 
IFTSPACEITTSHIFTSPACE} | (SHIFTSPACE+ | XSHL 
ETSPACEF-ISHIFTSPACEI _{SHIFTSPAGES}" 

590 FORN=OTOZ1 

600 PÜKEZBAGAHN,1 

610 FOKE7746+4N,45 

820 FORG=1T040:NEXTE, 

630 NEXTN 

640 IFS=1THEN730 

650 PRINT" {DOWN3WIETSFACEIHABENTSPACEIDI 
EISPACE} AUFGABE SPACE "EINENTSPACLEI}_ROSCH 








"SPACEFSICHERTSPACEZFUEBERTSPACEHEINENTSE 


PACE3STARKCSPACE}BE-TSPACE}FAHRENEN" 3 
&60 PRINT" SPACE} |IGHWAY {SPACE} ZULSPACEI 
IBRINGEN{SPACE}. " 

&70 PRINT" CDOHNI—-ANACHTSPACEIERWARTET {SP 
ACEI VIELSPACEZIEINTSPACE}VERGIFTETERISPA 
CE}_LUSS ,DEN{SPACE} YIELSPACEIMITSPACES | 
ILFE{SPACEIVONTSPACE? | AUMSTAEMMEN" ; 

680 PRINT" SPACEFUEBER-SPACEZFQUERENTSP 
ACE2." 

690 PRINT" DGHNI RIGHTS RVSONYETIR-TIRFSDO 
EE>®. 

700 IFPEEK (197) =32THENSOTO72O 

710 GOTE7UO 

720 6=1:6010570 

730 8=0 

740 PRINT" {DOHN?-ALLSTSPACEI GIETSPACEIMA 
L{SPACE3VEONSPACEHEI- SPACE YNEMISPACEI U 
TOTSPALE>UEBERFAHREN (SPACEZFWERDEN, {SPAC 
E>ISTSPACEIDIES{SPACEINICHTSO" 5 

750 PRINT" {SPACEITRAGISCH, TSPACEIDALSPAC 
EI #IELSPACEISTSPAGEFLEBEN{SPACE} ZURTSPAC 
E} KERFUEBUNGTSPALEZIHÄABEN, " 

760 PRINT" #TEUERN{SPACEIKANNTSPACEFMANTS 
PACEINURTSPACE ZIUEBER{SPACEIDIETSPACE?| A 
STATURTSPACEF:" 























_ Homer Ama Ze 


ALE>—->ISPACE23 KORWAERTS" 
710 PRINT"(DOHN SPACEZ RVSONIKLRVSOER 
ACE?——>{SPACESF HURUECKISPACE}" 

790 PRINT"{DOHM SPACE2 RVSOHY-_LRVSOFE 
ACEI—IISPACE4>LINKSTSPACEZY" 

800 PRINT"{DOHM SPACEZ RVSON} |ERVSOFE 
ACEI—->KSPACES> _ECHTS{SPACE}" 

810 PRINT"{DOHN RIGHT? RVSON>WIE-—" 
820 IFPEEK (197)1=32THENPOKES6869 ,240: RUN 
830 SOTIBZO e 

999 END 

1000 REM TEIL 2 LADEN 

1005 PRINT" CLEARHHABENTSFACEISIETSPACEI 
EIN{SPACEIKLEIN{SPACEFFWENIGCSBACEIBEDUL. 

















1010 PRINT"<DOHN4 SPACEZIDERISPAGEIZ. {SP 
ACEYTEILTISPACEIVON{SPACET BOWHN2F'FISPACE 
FRISPACEIDTSPACEIGISPACEISTSPACTEHETSPACE 
>R’{SPACET DOUN2 SPACEYWIRDISPACEIGELADE 
N" 

1020 FORK=1T03000: NEXTK 

1030 PRINT"tCLEARY" 

1040 POKE198,7:POKE831 ,75: PDKE532,207:PO 
KE633,13:POKE634 „82: POKESSS,213:POKE656, 
13:END 

2000 DATAs,18,15,7,7,5,18 

2010 DATA 3-9 Tu Tu Ta Ta Ta Te na nn 























HERRN ERT 
ENDE DES LISTINGS 


<150> 
<250> 
<173> 
<80> 

<179> 
<150F 
<255> 


%97> 


<100> 


24773 


<307 


<238> 
“2037 
<155> 


“3F> 
<108> 
x197&> 
x144> 
«106> 
x73> 


x18> 


“211: 
<g2Zr 
<40> 


<254> 
<213> 


<161> 


© POKES2,27:POKES&,27:POKESS,58: POKESS,S 


8>CLR 
10 FORT=59771T07641:READA: POKET „A:B=B+A: N 


Sompube mik 


<43> 





EXT 


20 IFR<>79868THENPRINT"?ERRORTSPACEITNTS 





PAGEFIDATA"SSTOP 

30 LOAD 

100 DATA32, 171 ,29,150,0,177,251,201,31,2 

40,5,169,8,133,9,76 

i0o1 DATA155,97,145,251,165,252,24,105,12 

0,133,252,165,195,145,251,165 

102 DATA197,201,50,209,4,198,254, 199,254 
201,27,Z0R,4, 230,254 ,230 

103 DATA254 ‚201,43, 208,2,230,253,201,42, 

208 ,2,198,253,201, 64,240 

104 DATAS,169,128,141,11,144,165,254,201 

22,208,4,169,20,133,254 

105 DATAZ2,120,29,165,254,201,2,240,4,20 

1,6,208,2,230,253,201 

105 DATA4,240,4,201,8,208,2,199,253,32,1 

91,29,165,253,201, 255 

107 DATA208,9,201,22,208,5,169,4,135,9,9 

6,160,0,177, 251,133 

108 DATAB7,201,15,176,5,169,10,133,9,96, 

169,31,145,251,165,252 

109 DATA24,105,120,133,252,177,251,133,1 

95,169,5,145,251,96,162, 198 

110 DATA189,21,30,201,32,208,10,167,0,15 

7,21430,169,6, 157,21 

111 DATA150,189,21,30,201 ,0,240,9,189,21 

„150,24,105,8,157,21 

112 DATA150,202,208,220,9& 

200 DATA255,255,255,255,255,255,255,255, 

0,1,2,63,115,109, 18,12 


201 DATA2SA, 17,16,255,295,2595,0,0, © „O,12 


8,252,156, 108,144,96 . 
202 DATAO,255,143,175,143,191,163,171,0, 
188, 164,164,164, 164,166, 254 


203 DATA23S, 225,237 ,225,255,1948,79,0,190° 


„190,191,191,254, 164,,24,0 

304 DATAO,1,1,0,15,63,229,24,6,184, 128,1 
5,77, 235, 9a, En 

205 DATAS,15,9,9,15,15,5,2,172,240,144,1 
44,240 ‚240,192,64 

206 DATA195,112,204,3,3,204,112,192,195, 
14,51,172,192,51,14,3. 

207 DATA127 ,69,65,127,115,209,19,12,12,1 
8,51,63,23,24,15,27° 

208 DATA48,72,204 232 ,232,24,240,216,19, 
83,123,253,223,75,33,192 

209 DATA200,202,222,191 ,251,210,132;3,21 
7,219 ,219,219,219,219, 219,219 

210 DATA255,95,85,170,170,85,95,255,0,12 
3,66,122,10,10,125,0 

2i1 DATAO,222,87,82,02,82,222,0,0,19,50; 
82,18,18, 123,0 

212 DATAO,123,10,10,58, 10,123,0,221,197, 
221 ,187,221,197,221, 187 

213 DATA255,36, 73,146, 36;73,146 ,255,15%,, 

189,219,126, 126,295,153,129° 

>14 DATA126, 255, 255,255,255, 255,255,126; 
255,165,0,0,0,0,0,0 


215 "DATA2SS, 129, 199, 185,165, 187, ae „255,. 


146, ‚186, 214,96, 56, 254, 146, 130: g 

216 DATAO,0,0,0,0,0 »0,0,119439,17, SB,145 
„52,23,#4 

300 DATA165,0,133,2,165,1,24,105,120, 133 
‚3,160,0,177, 0,72 

301 DATA177, 2,72,200,177, 0, 135,145,0,200 
;177,2,136,145,2,200 

302 DATAZOG0,192,22,208, 237, 136,104, 145,2 
‚i04,145,0, 96, 165, O, 133 

303 DATA2,165,1,24,105,120,133,3,160,21, 
177,0, 72,177,2,72 i 

304 DATA136,177,0,200,145,;0,136,177,2,20 

0,145,2,136,134,192,255 


<194> 


<174> 
<1777>? 


<161> 
<110> 
«72> 

x140> 
<Bo> 

<142> 
<235> 
x162> 
<151> 
«112> 
#127> 


x209> 
<162> 


<173> 
<S50> 
Ex =72 92 


x251> 


<168B* 


<80> 
x249> 
<ı111> 


<99> 


“142>. 


<1> 
“P1> 
<125> 
<10> 
<218> 
42363 
<ai> 
<183> 
z214> 
<93> 
<196> 


<1974> 


"#41 » CHHITEIUV®: 


programme 


305 DATA208,239,200,104,145,2,104, 145,0, 
96, 165,87,201,32,240,4 
30& DATA201,15,176,4,160,0,234,234,169,3 
0,133,1,169,44,133,0 
307 DATA32,61,29,169,88,133,0,32,16,29,1 
69,132,135,0,32,41 
308 DATA29, 169,176,133,0,32,16,29,169,8, 
133,0,169,51,133,1 
309 DATAS2,18,29,169,52,133,0,32,61,29,1 
69,96,133,0,32,1& 
310 DATA29,159,140,133,0,32,61,29,169,1&6 
2,133,0,76,61,29,162 
311 DATA22,169,30,133, 252,165, 253,135,25 
1,165,251 ,24,101,254,133,281 
312 DATA145,252,105,0,133,252,202,208,24 
0,96 

ENDE DES LISTINGS 






ti PRINT"{CLEARY ":C=30720: V=3487B: POKEV-9 
‚255: 5=V-2: A=22: DIMA(4) ,S(5) „HESS :68="{ 
DOHN YELLOWFOP{DOHN LEFTZIOR" 

2 FORT=OTO4:A(TI=1ZH$ (TI="VIC”:SCTI=1E3: 
NEXTEH$ (O)="M,.B":5(0) =2E5: POKEV+1 ,12:G0T 
042 

3 L=3: M=0: H=130: FORT=9T04: A(T}I=0r NEXTıF= 
0: G051UB24 

4 GOSURSO0:0$="(CHOME DOWN2I RVSON HHITEY" 
» IFNDT-LTHENFORT=2TOL: POKEB162+T ,31: NEXT 
5 FOKEV ,„255:PRINTO$SRIGHTSLTIS,2) „Mi IFPEE 
K254)=ÖTHEN1S 

& SYSA971:FORT=1TOH: NEXTS PIKES-1,0: IFPEE 
KtF)=OANDTI< 1BOOANDPEEK (2539 <22THENS 





‚7 L=el-1:X=PEER (2533 IFX<SZ1THEN? 


B IFK>Z21 THENX=20: IFPEEK {255} >200THENX=O 


.? POKE2SS,X:FOKES-1,0: POKES+1 ,0:5Y57615: 


=PEEK (251) +256#PEEK (252) s X=C+T 
10 POKEX ‚1: POKET ‚27: POKES ‚200: S0SUB14:PO 


KET,28:FOKES, 180: G0OSUB14: POKEX+1 ,17POKEX 


+A,1 

it FOKEX+A+1,1:POKET, 10: POKET+1 „112 POKET 
+A, 12: POKET+23, 1S:POKES, 0: FORT=15TO0OSTEP 
I 

12 POKES+1,200+T+ FORU=1T0OS0: NEXT: POKEV,T 
TNEXT:POKES+1 „Os IFL=OTHENPOKE 198,0:G0T03 
3 

13 GDSUB24: GDT04 

14 POKET+C,1:FORU=1T0400: NEXT: RETURN i 
15 POKES-1 ,0:%=INT (PEEK (253) 7/4) s IFACX) TH 
EN? 

16 FÜKES+1,0:A(X)=1=PRINT" THOHEY "TAB LZ+X 
:M=M+ZE3-TI:G$=" {HHITEIOPT 
DOHN LEFTZYIOR"ZPOKEV,15 E 
17 FORT=200T0245:3 FORY=TTOT-38TEF-1:POKES 


„YsNEXTSNEXTSGOSUBSLSFORTSOTOISSTER.1:PO. 


KEV,T 

18 NEXT:FORT=15TO0STEP-. 13 POKEV,T3NEXT=F 
SF+1r IFFSSTHEN?O 

19 FOKES,0:605UB30:60T04 

20 %=1:F=0:POKEV, 15: POKES „0: H=H-5: IFH/10 
=INTH710) THENL=1+1 

21 FORY=MTOM+1509STEP100: PRINTQ$,Y:PDKES 
+1, 238+X: G$=" (YELLONFAV" 

22 GOSUB31:FORU=1TO10: NEXT: GS=" (BPACE2 D 
OHN LEFTZ SPACE2}": GOSUB31:X=X+1>POKES+1 
„0: NEXT 

23 M=M+1500: G$=" (GREENFIITDOHN LEFTZ Bid 
Eree" : GOSUR31s:FORT=0T04: ACT}=0:NEXT=GOSU 
B30: 80104 

24 PRINT"ICLEAR GREENIeRI1@@]IeE@1 1ER11e@ 
TIa@a@ {RICHT2ZIGELRICHTZIRETRIGHTZIEEIRIG 
HTZI@@RICHTZIE@IHHITE HOHE DOWN"; 





Compube mib 


<140> 


95, 


<21iär 


<250> 
<11> 
<227> 
<737 


2377 


%134> 


<a> 
<25> 
<215> 
<173> 
<151> 
«18> 
<19&> 


<532> 


<1797> 


<248> 


<170> 
<103> 
19537 


A537 


x87> 


<131% 


<B> 
<137> 


“68? 


<174> 


<135> 


<23> 


277 


17 





i tips &tricks 


25 PRINT"{DOHN YELLOWIYYYYY{RIGHTS YELLO 
HEYYYYYVERIGHT23"SPRINT"{DBOHN RIGHTS HHI 
TEIYYYYYYYYSPRINT"DOHN. GREENIYYYYYÄRIG 
HTA YELLOHIYYYYYYY® 

26 PRINT"{DOWN REDSYYYY{RIGHTIL HHITEIVY 
":G$=" CHHITEIDPCDBHN LEFTZIOR“ SDE=" RVSO 
N HRITEY-TRIGHTI—{RIGHTI (RIGHT? —{RIGHT3 
CRIGÄHTI—IRIGHTI-RIGHTI-TRIGHTI RICHT? 
—{RIGHT? RIGHT RVSOEFY” 

27 PRINT" BOWNIFZZZZZZIZLZEZLITLZIZZZZ":P 
RINT"ABC{RIGHTZYHI{RIGHTZIHCBLUEIT" „DS a 
































PRINT"{YELLOW RIGRTZFNCLRIGHTS, KHITEINBC. 








",D$s; 

28 PRINT"ICYAN RIGHTIFABCISPACE YELLOHH 
I{RIGHTZ PURPLEYH{HHITEIT"SPRINTD$; =PRIN 
T"tHHITE SPÄCE CYANYDIHHITE}IETRED RIGHTS 
ID{YELLON}E” ä 

297 PRINT"{RIGHT CYANYF{HHITEIGT{RED RIGHT 
SIFLYELLOWIG"SPRINT"HHITEYZZZZZZZZZZZZZ 
2222722222":5Y87129:GOSUB31 

30 POKE9 ‚0: POKE97 ‚264: POKE253,10:POKE254, 
20: POKEB130, 31: TI$="000000" :POKEL195,1:RE 
TURN  . 

31 PRINT" CHOWE EYANF" SS FORT=SOTN4; IFALTI= 








167} 


x1497> 


«2075 


<241> 


<125> 


<233> 


N>GAME{RIGHTFOVER"APRINT"IYUP RESON CYAN 
RIGHTSIHITISPACEIATSPACEIKEY" =: GETA$: IFA$ 
<>" THEN3S 

34 FORU=-1TOFOO: NEXT: PRINT"{UF2 RIGHTE HH 
ITEYZZZZZZZZZ” : FORU=1T0200; NEXT: G0T933 
35 G$="{DOHN HHITEIOP{DOHN LEFTZYOR":FÜR 
F=90T04:A(T}=1: NEXT: IFM<S (4) THEN42 

36 I$="":PRINT"ICLEAR RVSON DOWNYENTERTS 
PACEIKNITIALS- __t{LEFTZY” 3 sSFORT=1T03: POK 
E198,0:WAIT19B,1:BETAS 

37 U=ASEC (A$) 3 IFUXSSORUSAZBTHENAS=" _" 

39 PRINTAF;: I$=1IF+AF:NEXTEHECSI=1IF:5 (TI = 
M 

39 F=0r: FORT=0T04: IFS{T} >=5 (T+1) THEN41 

40 U=S(T+1):S{T+1)=5(T}:5SCT)=U: I3=H$ (T+1 
JH tT+1)SHECTI SHSCTI=Iı Fe 

ai NEXT: IFFTHENS?F 

42 FRINT"LCLEAR>":GOSUBSA:PRINTTAB (AI "IY 
ELLOH DONNZ3 RVYSDPN}TODAYSIAIGHTIBEST",TAB 
I ERKSOHN BR — LOHR" 
43 PRINT"{HOHE DOWNSFY" + FORT=0T04:PRINTTA 
Bi&) " CRYSONF"HECT) „STTI EPRINTSNEXT:USUHZ 
s IFU>7THENU=1 

44 POKE646 „1: FORT=1T0500: NEXT:BETAS: IFA$ 











241 > 
«973 
<x10> 
<11> 
<116> 


s130> 
x229> 


<213> 
x220> 


<114> 


<232> 


ITHENPRINT" THOHE}" STAR CZ+T#4) ;G$ 
32 NEXT-FRINTYCHOHE DOHNY"S RETURN 





“2223 
<138> 


3% PRINT"CHONE BDOHNIO RIGHTS YELLOW RV5O 


=""THENAS 
45 GOT0O3 
ENDE DES LISTINGS 


x231> 
<28> 


VC 20-Tips & Tricks 





PEEK für SHIFT-Tasten 


Der Programmierer möchte viel- 
leicht für eine bestimmte Anwen- 
dung unterscheiden wollen, ob 
die rechte oder linke SHIFT- 
Taste betätigt wird. Hierfür sind 
zwei Adressen wichtig: 145 und 
653. 145 ist eigentlich für den 
STOP-Flag gedacht; wird die 
STOP-Taste betätigt, steht hier- 
für der Wert 254. Durch die Ta- 
staturdekodierung aber werden 


hier auch Werte für jede zweite. 


Taste in der untersten Tastenrei- 
he abgelegt, und zwar: 


255=keine Taste betätigt 
253=lirıke SHIFT-Taste 
251=X 

247 VW 

239=N 

223=, (Komma) 


“ 191=/ (Divisionsstrich) 


127=CRSR up/down 


Wenn also Adresse 653 den Wert 
für SHIFT (=1) enthält und 145 
nicht 253 enthält, darın wurde die 
RECHTE SHIFT-Taste betätigt. 
Steht ‘aber in 145 der Wert 253, so 
bedeutet das, daß wohl eine 
SHITT-Taste betätigt wurde, aber 
es schließt die Möglichkeit, daß 
beide SHIFT-Tasten GLEICH- 


ZEITIG betätigt wurden, leider 
nicht aus. Das heißt: wer di 
SHIFT-Taste für besondere 
Zwecke möchte, sollte lieber die 
rechte Taste wählen, weil die Ab- 
frage hier eindeutig ist. 


LOAD unter 
Programmkonirolle. 


Durch das Betriebssystem be- 
dingt, kann ein laufendes Pro- 
gramm eigentlich nur ein kürze 
res Programm nachladen: das Sy- 
stem ist so konzipiert, um die 
Variablen des ersten Program- 
mes, die eventuell vom nachgela- 
denen Programm benötigt wer- 
den, vorm Überschreiben zu 
schützen. Wer auf eine Variab- 
lenübergabe nicht angewiesen ist, 
kann ein längeres Programm als 
das ladende Programm mit fol- 
gender Befehlstolge in der letzten 
Zeile des ladenden Programmes 
nachladen: 


POKE 631,131: POKE 198,1: 
END 


F-Tasien 


Wer die Funktionstasten zur Aus- 
wahl von Menüpunkten verwen- 
den möchte, kann folgende Rou- 
tine benutzen: 


1 GET A$: IF A$="" THEN 
GOTO1 . 
2 ON ASC(AS)-132 GOSUB 


.10,20,30 usw. 


3 GOTO1 


Alle anderen Tasten werden igno- 
tiert. Die angesprungenen Uhnter- 
programme müssen selbstver- 
ständlich mit. dem Befehl RE- 
TURN enden. Dieselbe Routine 
läßt sich auch für die anderen Ta- 
sten verwenden, wenn man 'in 
Zeile 2 den Wert 132 durch den 


‚Wert 64 ersetzt: damit kann man 


mit den Buchstabentasten bis zu 
26 Unterprogramme auswählen., 


SCHWEBUNGEN 


Mit der vorliegenden Tabelle 
können Sie Ihrem VC-20 Töne 
ganz besonderer Art entlocken. 
Sie brauchen dabei nur für den zu 
spielenden Ton die beiden ent- 
sprechenden Werte zu entneh- 
men und sie in die beiden Tonre- 
gister zu POKEn, denen sie am 
Anfang der Tabelle zugeschrieben 
werden, Den zu hörenden Tonef- 
fekt nennt man Schwebung. 
Schwebungen entstehen‘ durch 
Töne, deren Frequenzen sehr na- 
he beieinander liegen. Diese Aus- 
sage können Sie leicht nachvoll- 
ziehen: Addieren’ Sie zu dem 
"Wert in 36875” die Zahl 1. Nun 


Compuhe mib 


decken sich die beiden Föne, ihre 
Frequenzen sind gleich. Addieren 
Sie nochmals 1, so gelangen Sie 
wieder zu einer Schwebung, 


In dem Demo-Programm können 


Sie sehen, wie Sie Computermu- 
sik mit Schwebungen am besten 


‚programmieren, Die Werte sind 


in indizierten Variablen, W1(Z) 
und W2(Z) abgelegt (angenom- 
men, das Programm läuft}, wobei 
Z einem festgesetzten Ton ent- 
spricht (hier: 0=A ‚,1=H,...). Die 
eigentliche Melodie ist - in Form 
solcher Zahlen codiert - in einem 
String gespeichert. In einer Schlei- 
fe werden diese Zahlen der Reihe 
nach ausgelesen, die Variable Z 
nimrat sie auf und in die Tonregi- 
ster werden jetzt die Werte aus 
W1(Z} und WAZ) geschrieben. 


Note 36974 36875 Note 36874 36875 


C 195 134 ce .225 194 
HC ı9 142 He 227 198 
D 20 16 d 228 200 
4D 3 10 Ad 29 m 
E 207 158 e 231 206 
F 209 162 f 232 208 
ME 22 18 Mi 233 210 
G 215 174 g 235 214 
HG 217 178 Ag 236 216 
A 219 182 a 237 28 
B 221 18% b 238 220 
H 223 19 h29 22 
240 224 
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programme 


Demo-Programm 


0 $1=36874:52-=$1+1:POKE 
$1+4,12 

5 FORI=0TO8:READWI(T), 
WAD.NEXTI 

10 MES="444432210024888865 
543345454754432210111210000” 
15 FORI=1TOLEN(ME$) 

20 Z=VAL{MIDS(ME$,L1)) 
25 POKE S1,W1(Z):POKE 82, 
WAZ) 

30 FORT=1T0300:NEXTT 
35 PORESLO:POKES2,: 


40 DATA219,182,223,190,225, 

194,228,200,231,206,232,208,235, 
214,236,216,237,218 Y 
Bei diesem Actionspiel mit sehr 
natürlichen und gut gestyken 
Grafiken werden schnelle Joy- 
stickaktionen gefordert. Der Spie- 
ler muß zuerst den Skportler über 
eine 100 m lange Distanz jagen, 
um eine möglichst gute Zeit zu er- 
‚reichen. Danach übt er sich im 
Weitsprung. Drei Versuche hat 
er, um eine möglichst große Weı- 
te zu erreichen. Die Anforderun- 
gen werden im Laufe des Spiels 
immer höher, so daß viel Ge- 
schicklichkeit und Übung erfor- 
derlich ist. Fi 
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Wir haben die neueste Software! 
Commodore 64 Commodore 16 


Kasnettn Diskekte Kuyzaetie 


biskekte 
Ennnens f ATE 32.00 un 
Anunder Ä 30.95 PN Handite nt Zero 14.95 0N 
Caunt.down to Haltkdann 14.95 kg 

Empire! N 44.55 ON 


ie: ir H# 
x airlight B 34,35 DN Jack 
So bestellen Sie BEER ELIESROREEN & Fr Ba pn Ehnaaies (4 Spieln) 
6 Oer . “a r ı 
Der Hindestbeataliuart von Software ea Be Je Einssien KUN) Mine) 
hiegt bei 15.00 DH! Hara t£ the guiaen tal laman 2. Formuie 1 
! Li ' Frank Brung‘s Roxin 
Sie künnen dun Geld in bar oder per * Tal z RN En 9 
Scheck Ihrer schriftlichen Bestellung n Al: Internekione? Karate 
bailagen, 28- er Je Set Hilly 
Legende of the amozan woaen - Kikstort. 
Bsi Hechnohwe-Versand werden 4.00 DH HORRET SE DBIS 14. H kepinnär ' 
re ;% ; A ® . k 
für Porta-Kosten arlıoben N neancss ; 8.85 DH wu eo lint 
Miasion Elgvatar. . 24.95 DM Aockman 


Auslandsbestellungen werden nur par Urn 
£ 3 N um > 48.95 OH 6. hie 
Vorauskasae ontgegenganommeni Operation Hongkong ji 3B.#5 08 BRRER Pllet 

B,Ping Pon . . Strert 0] ira 
Rufen Sie uns doch pinfach einnsi Shogun @ 'n 48.98 ON nen ER 
en! Unsera lelefone sind wochentags Spio Fiigur Me . 48.95 DM Water Orend Fris 
eb 9,30 Uhh für Sie zu erreichen! Spikting Images x 238.95 ON Nieblednn 

Ian Ceti . AA,95 DH Winter Oiymninde 


Ihn Imat VA Winter Olyapnir® 29,95 0H 


5 5 14. f 
| Bl ih i} g Ihn sold a million (9 Ganr») A 38.05 04 
“ N \) N ; Iouch down Fanthelk 38.95 DM # 
Fordern Sie kontenloses Informationamaterinl über unser Liefer- 
ANDRENS BACHLER Programm für folgende Computer on: 


POSTFACH U28 
CONMODONE 64/128, COMMODORE 16/116/PLUS A, SCHNEIDEN 464/664 
D-42980 BOCHOLT ATARL A3OXE/26051/5208T/B00XL, SINCLAIA SPECTRUN und HSX 
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programme 


Dieses Spiel kann natürlich auch 


von ”Two Players” gespielt wer-- 


den. Die Kokurrenzsituation ver- 
vielfältigt natürlich den Spielreiz. 
Beide Spieler agieren in völlig von 
einander getrennten Bildschirm- 
bereichen. R 


Die Grafik und die Animation 
dieses Spieles ist eindeutig profes- 
sionell. Die Animation der Figu- 
ren erreicht eine tolle Natürlich- 
keit, da durch einen Trick die Bild- 
auflösung der Sprites ade 


geschwind ab. Komprimierte und 
effektive Programmierung sind 
der Grund für die hohe Leistungs- 


fähigkeit des Programmes. 


Steuerung 

Die Geschwindigkeit des Sport- 
lers wird durch ”rechts-links” Be- 
wegungen des Joysticks erhöht. 
Der Absprung erfolgt mit Hilfe 
des Feuerknopfes, 5 


Die Lautstärke kann jederzeit mit 


-den Tasten ”F1” und ”F3” vari- 


wurde. "Trotz doppelter Arbeit iert werden, 
(geteilter Bildschirm), arbeitet der Hals- und Beinbruch 
C-64 sein Pensum ausgesprochen rH 


C&3 LISTING MIT CHECKSUMMEN it V1.0) 


1 FRINT"{CLEAR DOWN4 SPACERFYWAITISPACEIZ 
{SPACEFMIN. ISPACEITDTSPÄGEFCHECK TSPAGEIT 
HEXSPACEIDATALSPÄCEIOFEISPACEH E" 

3 PRINT"IDOHNI SPACEZFTISPACEIMISPACEYIET 
SPACEFZIUELSPAGEFATSFACEIMTSPACEIE TSPACEIS 
"PRINT" {DOHN4 SPACEZHBYISPALE2ZYT. SPACE 
MARK" j 

5 DIMG(75) : FORI=0T09: 0 (48+1)=1: DW l&ä5+I)=I 
+10z2 NEXT; FORI=317441T034 157: READAF 

7 HSASC (LEFTS(AF,1) SE L=ASCIRIGHTS CAF, 1) 
: D-Q CH) «iA (L) :5=5+D: POKEI ,D 

9 AsA+l: IFÄ<ZOTHENNEXT:A=-1 

:11 READY: 2=Z+2: IFV=STHEN15 

13 PRINT"EINGABEFEHLERTSPACE}INTSPACEF =" 
;17+Z:STDP - 

15 IFA<OTHENZ&I 

17 5=9: A=0: NEXT 

17 DATA A9,30,A0,06,99,F3,02,88,D0,FA,A? 
+35,80,F5,02,8D,F8,02,A9,31, 2594 

21 DATA GD,EE,02,80,F1,02,49,34,8D,EF,02 
‚BD,F2,02,8D,F0,02,8D,F3,02, 2522 

23 DATA AF,8B,8D,C5,02,A9,00,80,C4,02,47 
„ar ,80,06,02,49,00,8D,C7,02, 249& 

25 DATA AD,07,A9,00,97,BC,02,998,D0,FA,A7 
‚02,8D,Bl,02,8D,BE,02,AF,CB, 2477 

27 DATA 8D,C9,02,8D,CB,02,4%97,D0,90,C8,02 
‚SD,CA,02,A0,28,A9,00,997,3F, 2340. 

27 DATA D9,99,B7,D7,77,1F ,DB,A9,00,99,5F 
„C1,99,87,601,99,1F,C0C3,#9,A0, 3148 

31 DATA 99,67,00,99,97,02,49,40,97,9F,C0 
99 ,7F ,C2,A9,0B,939,C7,.0D8,99, 3170 

35 DATA 9F,DB,99,R7,DA,99,7F,09,49,41,79 
‚EF ,C0,99,17,61,99,0F,02,99, 3305 

35 DATA F7,62,98,D0,BB,A9,FF,8D,15,D0,A2 
‚00,20,BF,82,42,04,20,BF,32, 2800 

37 DATS A2,0A,BE,28,D0,8E,297,DO,CA,9E,2A 
‚DO,8E,2C,D0,8E,2D,DO,A2,01, 2499 

37 DATA BE,„ZB,D0,8E,27,DQ,CA,BE,2E,DO,A? 
‚AA,A2,10,7D,FE,CF,CA,CA,DO, 3127 

41 DATA F?,A9,53,80,01,00,8D0,03,D0,AY,3F 
‚8D,05,D0,90,07,D00,A9,84,BD, 2635 

43 DATA 09,D00,80,08,D0,A9,A0,8D,0D,D6,8D 
‚üF,„DO,A9F,OF,BD,22,00,A9,0B, 2377 

45 DATA 80,23,D0,A2,28,49,42,9D,FE,BF,9D 
ı27,60,9D,4E,C00,90,77,C0,A9%, 2075 

47 DATA 43,7D,FF,BF,7D,4F,C00,9D,76,00,7D 
‚26,00,A9,44,90,DE,C1,90,2E, 2964 

49 DATA C2,9D,07,02,9D,57,02,49,45,9D,DF 
‚E1,7D0D,06,02,79D,2F,C2,90,56, 2799 


























51 DATA C2,CA,CA,D0,C4,R0,50,A9,0&6,97,FF 


‚D7,79,4F ,D8,A97,06,99,DF,D9, 3270 _ 
53 DATA 99,2F,DA,99,67,09,99,47,DB,A9,0F 


240> 


x62> 
<148> 
<98> 
x228> 
x42> 
%23> 
1023 
<99> 
“2227 
“235? 
2075 
<1957 
<1ä6> 
x79> 
<1937 
<17> 
<147>7 
58} 
«197> 
<190> 
xb> 
<i66> 
*139> 
x145> 


<108> 


’ 


„99,EF,D8,99,CF,DA,B9,FF,BF, 3297 
55 DATA 99,67,01,99,47,C3,88,D0,D6,49,01 
‚ED,D5,02,8D,D6,02,80,D7,02, 2467 
57 DATA 8D,DB,02,8D,DF,02,8D,E0,02,8D,CF 
„02,8D,D0,02,8D,B8,02,8D,B9, 2449 
59 DATA 02,60,B5,02,8D,B4,02,A9,00,8D,Ei 
‚02,8D,E2,02,8D0,C0,02,8D,CE, 2252 
61 DATA 02,AE,E3,02,CA,D0,05,A9,00,8D0,D& 
„02,AD,D5,02,09,01,F0,0A,AD, 2357 
63 DATA D64,02,C09,01,F0,03,46,74,84,AD,AF 
‚02,D0,0A,AD,D5,02,C09,01,F0, 23899 
65 DATA 06,20,04,82,4C,2A,80,AD,E1,02,D0 
‚75,#2,00,20,BF,82,A9,46,BD, 2246 
67 DATA 03,01,497,47,8D,2B,C1 ,AD,EE,02,8D 
‚BR,C1,AD,EF,02,8D,8B,C1,AD, 2758 
69 DATA F0,02,8D,8D,C1,20,95,82,CA,DO,4E 
‚E8,8E,CD,02,49,04,8D,D1,02, 2422 
71 DATA EE,E1,02,49,30,90,6F ,01,80,70,C1 
„8D,72,C1,8D,97,01,80,98,C1, 2992 


'73 DATA 90,94,C1,A9,13,8D,8F,C1,A9,14, BD 


„70,C1,49,09,80,91,C1,A9,0D, 2659 
75 DATA 80,72,C1,A7,05,9D,93,C1,A9,20,8D 
„94,C01,A7,00,8D,E8,02,89D,E9, 2756 
77 DATA 02,99,01,80,E4,02,8D0,EC,02,AD,Ei 
‚02,69,03,D0,68,A2,00,20,BF, 2225 
737 DATA 82,R0,50,49,41,99,EF,C0,88,D0,FA 
„20,82,83,A9,FF ,A0,08,799,FE, 3074 
81 DATA CF,88,58,D0,F9,A2,00,20,95,82,CA 
„Dö,43,EE,E1,02,A9,01,80,CD, 2867 
83 DATA 02,49,30,80,97,C1,8D,98,C1,8D,98 
„Ci ,8D,6F,C1,8D,70,C1,8D,72, 2824 
85 DATA Ci1,EE,FC,02,A9,00,8D,E8,02,8D,E? 
,02,09,04,8D,D1,02,AD,F4,02, 2549 
87 DATA 8D,BA,C1,AD,F5,02,8D0,88,C1,AD,F& 
„02,80,8D,C1,A9,0D,BD,BF,Ci, 2920 
89 DATA AD,E1,02,C9,02,00,1C,A2,00,20,95 
‚82,CA,D0,14,EE,E1,02,20,EE, 2477 
91 DATA 84,49,00,8D,FC,02,8D,FE,02,8D,BA 
‚02 ,20,2C,83,AD,B5,02,19,02, 2188 


'93 DATA D0,78,A2,00,20,95,92,CA,D0,70,EE 


„Ei ,02,EE,B5,02,CE,CD,02,A2, 2784 

75 DAtA 20,8A,70,D0B,C3,EE,00,DO,EE,02,DO 
„EE,04,DO,EE,04,00,EB,E0,24, 3028 

97 DATA D0,EB,A9,02,60,B3,02,8D,B1,02,6E 
„öF,Ci ,E0,30,F0,0C,CA,AD,Bil, 2810 

99 DATA 02,49,14,8D,B1,02,4C,19,7F,AE,70 
‚E1,E0,30,F0,0C,0#,AD,Bi1,02, 2232 

101 DATA 59,02,8D,581,02,9C,2C,7F,38,AD,B 
1,02,69,0A,70,09,8D,B1,02,EE, 2036 

103 DATA B3,02,40,3C,7F,A7,09,CD,B1,02,3 
0,05, AD,B1,02,D0,05,A9,01,89D, 2031 

105 DATA B1,02,AD,E1,02,69,06,D00,48,92,0 
0,BD,F0,C0,6C9,4A,F0,05,E8,D0, 2937 

107 DATA F&,8E,B3,02,A0,07,8A,&0,B3,02,A 
A,88,D0,F8,8E,B3,0?,AD,CA,02, 2624 

109 DATA E9,CF,6D,B3,02,A8,CC,00,D0,70,0 
B,A2,02,20,B8,83,88,CC,02,DO, 2526 

111 DATA 00,F7,AD,F4,02,CD,97,C1,90,1E,D 
0,14,AD,F5,02,CD,98,01,90,14, 2959 

113 DATA DO,0N,AD,F&,02,CD,9A,C1,90,0A,F 
0,08,99,07,90,E1,02,4C,CD,7F, 2545 

115 DATA A9,01,8D,BA,02,EE,FE,02,49,07,8 
D,E1,02,AD,E1,02,C9,07,D0,56, 2439 

117 DATA AZ,00,20,95,82,CA,D0,4E,49,46,8 
D,AF,02,8D,BA,02,A2,00,20,BF, 2232 

i17 DATA 82,A9,03,9D,E1,02,A9,53,90,053,D 
0,80,01,00,%9,3F,80,05,DO,8D, 2351 

121 DATA 07,D0,AD,FC,02,C09,03,D0,25,AD,F 
E,02,D0,03,CE,D5,02,A9,00,8D, 2462 

123 DATA E1,02,A0,50,A9,41,997,EF,C0,88,D 
0,F#,A0,08,A7,AA,97,FE,CF,88, 3136 

125 DATA 88,00,F9,20,98,84,AD,BO,02,00,0 
A,RD,D&,02,09,01,F0,06,20,EA, 2581 


Compute miß 


<«19> 
x252> 
<108> 
<247> 
<69> 
<236> 
<119> 
<81> 
x25> 
<5> 
<189> 
<BB> 
2143> 
<150> 
x56> 
<64> 
<178> 
“161> 
<46> 
<84> 
+174> 
<5B> 
«206> 
<53> 
42273 
<215> 
<209> 
<119> 
<158> 
<212> 
<219> 
<46> 
<103> 
<110> 
<4> 
<221> 


x175> 





127 DATA 82,4C,B0,7D,AD,E2,02,00,75,A2,0 
4,20,BF,92,A9,46,BD,E3,02,A9, 2722 


127 DATA 47,8D,0B,C3,AD,F1,02,80,6A,C03,A 


D,F2,02,8D,4B,C3,AD,F3,02,8D, 2695 

151 DATA &D,C3,20,00,83,CA,DO,4E,EB,SE,C 
E,02,N17,04,80,D2,02,EE,E2,02, 2529  - 
153 DATA A9,30,8D0,4F,C3,8D,50,03,8D,52,C 
3,9D0,77,63,80,78,C03,9D,7A,C3, 28935 

135 DATA A9,13,80,6F ,C3,A9,14,80,70,03,A 
7,09,8D0,71,C03,A7,0D,80,72,603, 2531 

137 DATA A9,05,80,73,03,A9,20,9D0,74,03,A 
9,01 ,8D,E7,02,8D,ED,02,47,00, 2371 

139 DATA 90,EA,02,8D,EB,02,AD,E2,02,09,0 
3,D0,68,A0,50,A9,41,99, CF ,C2, 2700 

141 DATA 98,D0,FA,20,7D,83,A2,04,20,BF,B 
2,A9,FF,A0,08,997,06,D0,88,88, 2654 

143 DATA DO,F9,A2,00,20,00,83,CA,D0,43,E 
E,E2,02,A9,01,8D,CE,02,49,30, 2461 

145 DATA 9D,77,03,20,78,03,8D0,7A,C3,80,4 
F,C3,80,50,03,8D,52,63,EE,FD, 3109 

147 DATA 02,A9,00,90,EA,02,8D,EB,02,A9,0 
4,80,02,02,AD,F7,02,8D,6A,C5, 231& 

149 DATA AD,F8,02,80,6B,C3,AD,F9,02,8D,& 
D,C3,A9,0D0,80,4F,C3,AD,E2,02, 2765 

151 DATA C9,02,D0,1A,20,00,83,C6A,D0,14,E 
E,E2,02,20,20,85,A9,00,8D0,FD, 2248 

153 DATA 02,90,FF,02,8D,BB,02,20,57,83,A 
D,B6,02,09,02,D0,76,20,00,83, 2029 

155 DATA CA,DO,70,EE,E2,02,EE,BA,02,EE,C 
E,02,42,20,84,9D,DL,C3,EE,08, 3006 

157 DATA DO,EE,OA,DO,EE,0C,DO,EE,0E,DO,E 
B,E0,24,DO,EB,A9,02,80,84,02, 3011 

159 DATA 8D,B2,02,AE,4F,C3,E0,30,F0,06,C 
A,AD,B2,02,67,14,8D,B2,02,4C, 2370 

161 DATA 7E,81,AE,50,03,E0,30,F0,0C,CA,A 
D,B2,02,69,02,8D,B2,02,40,91, 2432 

163 DATA 81,38,AD,B2,02,E9,0A,90,09,8D,B 
2,02,EE,B4,02,46,A1,81,49,09, 2219 

155 DATA CD,B2,02,90,05,AD,B2,02,D0,05,A 
9,01,6D,B2,02,AD,E2,02,[09,06, 2199 

167 DATA D0,68,A2,00,BD,D0,02,C9,4A,F0,0 
3,E8,D0,F6,8E,B4,02,A0, 07,BA, 2898 

169 DATA &D,B4,02,RA,88,D0,F8,8E,B4,02,A 
D,C8,02,E9,CF,6D,B4,02,A8,CC, 2955 

171 DATA 0A,D0,90,0B,A2,02,20,E5,83,88,C 
C,0C,D0,DO,F7,AD,F7,02,CD,77, 2670 

173 DATA C3,70,1E,b0,14,AD,F8B,02,CD,78,C 
3,90,14,D0,0A,A0,F9,02,C0D,7A, 2673 

175 DATA C3,90,0A,F0,09,R9,07,8D,E2,02,4 
C,52,82,R9,01,0D,BB,02,EE ‚FF, 2391 

177 DATA 02,49,07,90,E2,02,AD,E2,02,07,0 
7,00,59,20,00,83,CH, D0,53,A9, 2278 

179 DATA 44,8D,80,02,8D,BB,02,A2,04,20,B 
F,82,A7,03,8D,E2,02,A9,B4,8D, 2267 

181 DATA 0B,D0,80,09,00,A9,AQ,8D,0D,DO,B 
D,OF,DO,AD,FD,02,69,03,D0,2A, 2514 

185 DATA AD,FF,02,D0,03,CE,D4,02,49,00,8 
D,E2,02,80,50,A9,41,99,CF,C2, 2629 

135 DATA 88,00,FN,A0,0R,A9,AA,79,06,00,8 
8,88,D0,F9,A9,54,8D0,B0,02,20, 2817 

187 DATA C3,84,4C,B0,7D,AD,00,DE,C9,6F,F 
0,21 ,69,6&,F0,1D0,C9,50,F0,17, 2857 

189 DATA C9,4A,F0,15,09,69,F0,11,09,66,F 
0,0D,C9,65,F0,09,09,6B,F0,05, 2791 

191 DATA C9,67,F0,01 ,60,E9,60,A7,18,9D,F 
8,63,A9,16,90,F9,63,A9,14,9D, 2906 

193 DATA FA,CS,A9,10,90,FB,03,60,42,00,2 
0,BF,82,A9,53,8D,01,D0,8D,03, 2590 

195 DATA 00,49,3F,8D0,05,D0,8D,07,00,60,A 
2,04 ,20,BF,92,49,B4,80,07,DO, 2472 

197 DATA 8D,0B,D0,A9,A0,8D,0D,DO,8D,0F,D 
0,60,A2,00,AD,01,DC,C9,EF,FO, 2747 

199 DATA 21,C9,EE,F0,1D,C9,ED,F0,19,C9,E 


<106> 
<138> 
<254> 
<159> 
<244> 
<52> 

<162> 
<234> 
<196> 


<112> 


.sF1l> 


<141> 
<99> 
<1895> 
<188> 
<x30> 
21897 
<39> 
x252> 
x74> 
<119> 
«18937 
«387 
x4a> 
<100> 
«229> 
<241> 
<114> 
<246> 
<97> 
<119> 
<215> 
<99> 
<185> 
<4> 


<a9> 


- T$tAS, 19): 


Programme 


A,F0,15,69,E9,F0,11,09,E6,F0, 3502 


201 DATA 0D,C7,ES,F0,07,C9,ER,F0,05,C9,E 
7,F0,01,60,E8,60,A0,37,A2,05, 2954 

203 DATA AD,F0,02,09,30,F9,04,CE,F0,02,4 
C;53,83,8C,F0,02,AD,EF,02,097, 2445 

205 DATA 30,F0,05,CE,„EF „02,40 ,53,83,8C,E 
F,02,CE,EE,02,CA,DO,DA,60,AO, 2742 

207 DATA 39,42,05,AD,F3,02,09,30,F0,06,C 
E,F3,02,40,7E,83,86,F3,02,AD, 2473 

209 DATA F2,02,69,30,F0,06,CE,F2,02,40,7 
E,83,8C,F2,02,CE,F1,02,CA,DO, 2765 

211 DATA DA,60,A2,00,8E,90,61,49,05,8D,F 
1,01,90D,93,01,49,14,80,92,C1, 2771 

213 DATA A9,12,50,94,C1,8E,9C,C01,60,92,0 
D,BE,70,63,A7,05,8D,71,C3,8D, 2544 

215 DATA 73,03,99,14,8D, 72,C3,49,12,8D,7 
4,03,8E,70,C03,50,CA,F0,01,60, 2684 

217 DATA A2,02,20,12,04,AD,9A,61,69,39,F 
0,04 ,EE ,2A,01,60,A9,30,8D,9A, 2561 

217 DATA C1,AD,98,61,607,39,F0,04,EE,76,C 
1,60,A49,30,90,99,C1,EE,97,C1, 3177 

221 DATA 50,CA,F0,01,60,42,02,20,46,84,A 
D,7A,C3,C9,37,F0,04,EE,7A,C3, 2580 

223 DATA 6&0,A9,50,90,7A,C3,AD,78,C3,C09,5 
9,F0,04,EE,78,03,60,47,30,BD, 2768 

225 DATA 78,C3,EE,77,03,60,AB,BS5,C1,C09,3 
9,F0,04,EE, Bs, c1, &0, Ay ‚30,0D, 3078 

227 DATA B5, ci, AD, BA, C1,C09,39,F0,04,EE,B 
4,01,60,A9, 30, ED, B4 „Ei .AD, BD, 3212 

227 DATA ci, c9 „39, FO, 04,EE,B3,C1,60,49,3 
0,8D,B3,C1, EE, B2,C01,60,AD,95, 3158 

231 DATA 63, c9, 33, Fö „Od,eE, 75,03,40,R9,3 
0,90,95,03, AD, 74, 63, C9,37,F0, 3091 

233 DATA o4,EE, 94, cz, 60, A9,30,80,94,03,A 
D,93,C03,09, 39, Fo, 04, EE, 93 ‚E35, 2979 

255 DATA &0, nF, 30, aD, 93, C35,EE,92,03,60,A 
9,64,8D,AF, 02, AD, AF, 02, 20 „EB, 2867 

237 DATA A2,00,20,95,82,CA,F0,06,20,00,8 
3,CA,D0,F2,49,00,8D0,15,D0,60, 2371 

239 DATA 42,03,AD,F6,02,09,537,F0,04,EE,F 
6,02,4C,BF,84,R0,30,BE,F8,02, 2571 

241 DATA AD,F5,02,09,39,F0,04,EE,F5,02,4 
C„BF,84,8C,F5,02,EE,F4,02,CA, 2881 

243 DATA DO,D8,40,A2,03,AD,F9,02,09,39,F 
0,06,EE,F9,02,4C,ER,94,A0,30, 2752 

245 DATA 80,F9,02,AD,F8,02,09,39,F0,06,E 
E,F9,02,4C,EA,84,80,F8,02,EE, 2976 

247 DATA F7,02,CA,D0,D8,60,AD,97,01,09,3 
0,F0,05,09,31,F0,01,50,20,12, 2617 

249 DATA 84,AD,9A,01,C09,3%,F0,05,EE,9A,C 
1,35, FA,84, Ar, 30, ED, 3A „E1,AD, 3077 

251 DATA 98,c1, c9, 39, FO,068,EE,78,C1,4C,F 
A,84,A9,30,8D,98, 1, EE, 97 „ei, 3175 

253 DATA AD, 97 ,C1 4,09, 32,DO,CF,60,AD,77,C 
3,69,30,F0,05,69,31,F0,01,50, 2847 

255 DATA 20,46,84,AD,7A,03,C09,39,F0,06&,E 
E,7A,03,4C,38,85,47,30,8D0,7A, 2528 

257 DATA C3,AD,78,03,609,39,F0,06,EE,78,C 
3,40,38,85,A7,50,80,78,C3,EE, 2916 

259 DATA 77,03,4D,77,603,09,32,DO,CF,40,F 
F,00,00,00,00,00, 1818 

261 Z=0:S=0:A=0:DIMH (75) s FÜRI=OTO9:H(489+ 
I)=1:H{45+1)=1+10: NEXT: FORI=291841031422 
2683 READAS:HSASC (LEFTE LAS, 1) aL=ASC (RIGH 
DEHIHY FI6HH (L) :S=S+DrPOKEI,D 
265 A=sA+l: IFASZOTHENNEXT:A=—1 

267 READV: Z=2+2: IFV=STHEN271 

269 PRINT"EINGABEFEHLER{SPACE} INISPACEI: 
"4 275+Z2 END 

271 IFALOTHENS1F 

273 S5=0:A=-0: NEXT 

275 DATA 78,%9,7F ,5D,0D,DC,AF,01,8D,16,D 
0,R9,04,85,FB,AD,C4,02,8D0,12, 2422 


Gompute mib 


«227: 
2165> 
58> 
z61l> 
s14> 
<192> 
x17&> 
<35> 
“2177 
<219> 
eil9> 
<204 
°251> 
147> 
<a? 
2355 
x8> 
x171> 
s164> 
“28: 


2513 


<243> 


<1545 


“2358> 
19795 
<Z1l> 
<115> 
“16t> 
15327 


<277 


<240> _ 


x1A77 


“180> 
“227° 
<155> 


<al?> 
<150> 
<100> 


<B9> 


21 


programme 


277 DATA B0,A9,18,8D,11,00,A9,25,BD,f4,0 
3,A9,72,80,15,03,58,60,AD,19, 1768 

277 DATA D0,90,19,00,27,01 ,F0,35,C6,FB,1 
.9,04,49,03,85,FB,Ad, FB, E0,03, 2596 

281 DATA Fo, 30, A6, FB, EO „01,F0,27,E0,02,F 
0,29,A6&,FB, ED, CB, 02, aD, 16,00, 2895 

283 DATA ED,BC,02,8D,21 ,DO,BD,L0,02,8D,2 
0,D0,BD,C4,02,8D,12,D0,8A,FO, 2657 

2895 DATA OF,69,AB,68,AA,68,40,40,48,72,4 
C,48,72,4C0,FD,74,CE,AA,02,AD, 2249 

287 DATA AA,02,00,59,49,09,8D,AA,02,AD,A 
7,02,890,18,04,20,28,7B,20,53, 1992 

289 DATA 7B,A9,40,80,04,D4,8D,ORP,D4,8D,1 
2,D4,AE,A8,02,BD,00,94,8D,01, 2277 

291 DATA D4,BD,40,94,8D,00,D4,BD,80,9A,8 
D,0R,D4,BD,C0,74,90,07,D04,BD, 2888 

297 DATA 06,9B,8D,0F,D4,BD,40,98,8D,0E,D 
4,EE,A8,02,E0,3F ,0D0,05,A9,00, 2375 

295 DATA BD,AB,02,A9,41,8D,04,D4,BD,0B,D 
4,80,12,D04,AD,AF,02,F0,03,CE, 2436 

297 DATA AF,02,AD,BO,02,F0,03,CE,B0,02,A 
'D,05,02,C09,01,F0,03,4C0,31,EA, 2347 

277 DATA AD,CD,02,69,01,D00,72,CE,CF,02,A 
D,CF,02,00,1D,AN,D1,02,8D,CF, 2670 3 
301 DATA 02,CE,DF ,02,AD,DF,02,D90,06,A9,0 
4,80,DF,02,42,00,40,00,20,C4, 2140 

305 DATA 77,20,0F ,77,20,50,7B,AD,E4,02,D 
0,24, AD,00,DC,C9,7A,F0,08,09, 2329 

305 DATA 77,F0,04,69,7B,D0,36,49,01,8D,E 
4,02,49,0D,8D,7C,D9,49,05,8D, 247& 

307 DATA 7A,D9,20,10,797,40,69,73,AD,00,D 
C,C9,76,F0,08,C9,77,F0,04,C09, 2529 

3067 DATA 75,00,12,49,00,8D,E4,02,49,0D,8 
D,7A,D9,A9,0A,8D,7C,D?,20,10, 2254 

si1 DATA 79, AD, Ei, 02, c9 „01,D0,38, AD,OS,C 
1,C7,48,D0 „S4.EE, E1,02, CE ‚CD, 2768 

313 DATA 02,AD,77,61,CD,EE,02,90,18,D0,2 
1,AD,98,C1,CD,Er,02,70,0C,D0, 2639 

315 DATA 17,AD,9A,C1,ED,F0,02,90,02,D0,0 
D,#7,00,8D,FC,02,A7,01,8D,BA, 2418 

317 DATA 02,4C,69,73,CE,05,02,AD,E1,02,6 
9,04,DO,4C,AD,F1,C0,09,4A,DO, 2697 

317 DATA 05,49,4B,8D,18,C01,AD,F5,C00,07,4 
A,D0,0A,A9,40,80,F0,00,49,AE, 2777 

321 DATA 8D,18,C1,AD,Fi1,C0,C09,40,D00,0A,A 
7,4F,8D,F0,C0,49,50,80,1A,C1, ZB88 

325 DATA AD,OF,C1,C7,4A,D0,0B,A9,07,8D,E 
1,02,CE,ED,02,CE,B5,02,4D,05, 2399 

325 DATA C1,6C97,4A,D0,05,49,02,8D,85,02,A 
D,BA,02,09,01,F0,04,09,02,D0, 2334 

327 DATA 4B8,CE,B9,02,AD,E3,02,D00,43,49,0 
&,50,B8,02,AD,BA,02,C9,02,F0, 2407 

323 DATA OF „EE,BA,02,A9,7E,80,B7,02,92,7 
A,nG,75,40,34,74,CE,BA,02,A7, 2430 

331 DATA FF ,AA,AO, FS, AD, DD,02,BO,OF,AD,B 
7,02,8D,16, E2, BE, 17, E2 ‚Sc,iF, 2630 : 


333 DATA E2, a6, 54, 7a, AD,B7,02,80,1E,E2,8 


E,1F,E2,80,17,E2,AD,E1,02,09, 2646 
335 DATA 05,00,3B,AD,Bi1,02,F0,12,CE,00,D 
0,CE,B1,02,0E,02,DO,CE,04,DO, 2515 

337 DATA CE,06,DO,4C,FA,74,AD,B3,02,8D,B 
1,02,EE,B5,02,AD,BS,02,09,07, 2521 
339 DATA 90,4D,C9,07,F0,58,09,11,F0,0F,E 
E,01,D0,EE,03,D0,EE,05,Dü,EE, 2815 

341 DATA 07,D00,4C ,FA,74,EE,E1,02,8E,B5,0 
2,A2,28,84,90,D0,03,E8,E0,2C, 2847 

343 DATA DO,F7,A0,07,EE,00,DO,EE ,02,DO,E 
E,04,DO,EE,064,D0,88,DO,F1,A2, 3165 


345 DATA 09,EE,01,DO,EE,03,DO,EE,05,D0,E 


E,07,D0,CA,DO,F1,4C,FA,74,CE, 3108 | 
347 DATA 01,00,CE,03,00,CE,05,D0,CE,07,D 
0,4C,FA,74,42,24,84,9D,D4,C5, 2808 

349 DATA EB,E0,28,00,F7,A0,10,EE,00,D0,E 


<76> 
<233> 
<146> 
<0> 
<119> 
<2497> 
<112> 
x<206> 
<84> 
<225> 
“216> 
<189> 
x252> 
<103> 
sa4> 
<137 
<54> 
<107> 
<125> 
<2Z51> 
943 
«234> 
“323 
<241> 
<351> 
“67 
<120> 
<105> 
<7087 
“Ia> 
x71> 
“193> 
sA> 
<113> 
<160> 


<51> 


E,02,DO,EE,04,D00,EE,06,D0,88, 3059 

351 DATA DO,F1,42,31,EA,AD,D&,02,09,01,F 
0,03,4C,7E,75,AD,CE,02,C9,01, 2544 

353 DATA D0,70,CE,D0,02,AD,D0,02,D0,1B,A 
D,D2,02,00,D0,02,CE,E0,02,AD, 2695 

355 DATA E0,02,D0,04,42,04,BE,E0,02,A0,0 
8,20,64,77,20,56,77,20,7F,79, 2010 

357 DATA AD,E5,02,D0,24,AD,01,DC,C7,F9,F 
0,08,09,FA,F0,04,C9,FB,D0,36, 3149 

359 DATA A?,01,8D,E5,02,A9,0D,80,5C,DB,A 
9,06,8D,5%,DB,20,3F,7A,4C,?7E, 2224 

3&1 DATA 75,AD,01,DC,C9,F6,F0,08,609,F5,F 
0,04,C7,F7,D0,12,49,00,80,E5, 3107 

363 DATA 02,A9,0D,80,5A,D8,A9,0A,BD,5C,D 
B,20,3F,7A,AD,E2,02,09,01,D0, 2293 

365 DATA 3B,AD,E3,C2,09,49,D0,34,CE,CE,0 
2,EE,E2,02,A0,77,C3,CD,F1,02, 3001 

367 DATA 90,16,D0,21,AD,78,C3,CD,F2,02,9 
0,0C,00,17,AD,7A,C3,CD,F3,02, 2671 . 
369 DATA 90,02,D0,0D,A9,01,8D,BB,02,49,0 
0,80,F0,02,4C,C0,75,.CE,D6,02, 2239 

371 DATA AD,E2,02,09,04,D0,4C0,AD,D1,02,C 
9,4A,D0,05,49,4B,8D,F8,02,AD, 2954 

373 DATA D6,02,69,4A,00,0A,A9,4D,BD,DO,C 
2,09,4E,8D,F8,02,AD,D1,C2,69, 3297 

375 DATA 4D,DO,0A,A7,4F ,8D,D0,02,49,50,8 
D,F8,C2,AD,EF,C2,C9,4A,D0,0B, 3018 

377 DATA 49,07,0D,E2,02,CE,CE,02,CE,B&b,0 
2,AD,E5,C2,C9,4,D0,05,A49,02, 2404 

379. DATA 8D0,B6,02,AD,BB,02,09,01,F0,04,C 
9,02,D0,45,CE,B9,02,AD,B9,02, 2372 

331 DATA D0,43,A9 ,06,8D,B7,02,AD,BB,02,C 
9,02,F0,0F,EE,BB,02,A9,7E,0D, 2461 

383 DATA B7,02,A2,7A,A0,75,46,49,76,CE,B 
B,02,A9,7F,AA,AO,FS,AD,DE,02, 267& 

385 DATA DO,OF,AD,B7,02,8D,26,E2,8E,27,E 
2,8C0,2F,E2,4C0,69,76,AD,B7,02, 2463 

387 DATA 8D,2E,E2,BE,2F,E2,8C,27,E2,AD,E 
2,02,C09,05,D0,38,AD,B2,02,F0, 2700 

587 DATA 12,CE,08,D0,CE,B2,02,CE,0A,DO,C 
E,0C,DO,CE,OE,DO,AC,AB,76,AD, 2642 

391 DATA B4,02,0D0,B2,02,EE,B6,02,AD,Bö,0 
2,C9,07,90,44,69,07,F0,55 ‚„E9,. 2442 

593 DATA 11,F0,0F,EE,09,DO,EE,OB,DO,EE,O 
D,DO,EE,OF ,DO0,4C,0C0,77,EE,E2, 2775 

395 DATA 02,42,2B,BA,9D,D4,03,E8,E0,20,D 
0,F7,A0,07,EE,08,DO,EE,0A,00, 2938 

397 DATA EE,0C,DO,EE,0E,D0,88,D0,F1,A2,0 
9,EE,09,DO,EE,0B,DO,EE,0D,DO, 3045 

399 DATA EE,OF,DO,CA,DO,F1,402,0C,77,CE,0 
7,D0,CE,0B,DO,CE,0D,DO,CE,OF, 2815 


401 DATA DO,4C,00,77,A2,24,BA,9D,D8,03,E 


8,E0,28,D0,F7,A0,10,EE,08,D0O, 2900 
403 DATA EE,OA,DO,EE,O0C,DO,EE,OE,DO,88,D 
0,F1,40,48,72,AD,CA,02,C09,D7, 3014 
A405 DATA FO0,04,EE,ECA,02,60,A0,27 ,B9,EF,C 
0,99,F0,C0,B9,17,01,99,18,C1, 2953 
407 DATA 89,D0,F1,A2,01 ,AD,DD,02,F0,07,C 
#,8E,DD,02,4C,3C,77,8E,DD,02, 2578 
409 DATA AO,00,20,9D,77,A9,D0,8D,CA,02,A 
9,4F,CD,F1,C0,F0,08,49,41,8D, 2699 
411 DATA FO,C0,8D,18,C1,50,AD,C8,02,C09,D 
7,F0,04,EE,C8,02,60,A0,27,B9, 2941 
413 DATA CF ,C2,99,D0,0C2,B9,F7,C02,99,F8,C 
2,88,D0,F1,A2,01,AD,DE,02,F0, 3562 
415 DATA 07,CA,8E,DE,02,4C0,83,77,8E,DE,0 
2,A0,10,20,90,77,A9,DO,8D,08, 2469 
417 DATA 02,%0,D1,02,C9,4F,F0,08,49,41,8 
D,D0,C2,80,F9,02,60,8A,DO,OF, 2923 
419 DATA A2,00,BD,41,07,99,10,E2,C8,E8,E 
0,10,DO,F4#,50,A2,00,BD,41,C7, 2845 
421 DATA 99,18,E2,BD,49,C7,97,10,E2,CB,E 
B,E0,08,D0,EE,50,BD,F8,C3,C7, 3278 


Compute mib 


<53> 
<217> 
<13> 
<136> 
<10> 
<184> 
<26> 
<22> 
<170> 
<67> 
<192> 
<35> 
<1B89> 
<19> 
<221> 
<23h> 
<170> 
<229> 
<134> 
<9> 
<209> 
<178> 
<69> 
<138> 
<100> 
<61> 
<227> 
<87> 
<250> 
<210> 
x17> 
<191> 
<11> 
<248> 


<ı111> 





9/86 


423 DATA 18,00,34,87,15,9D,F8,03,A9,19,97 
D,F#,C3,BD,D7,02,F0,08,49,00, 2592 
425 DATA 90,07 ,02,4C,EC,77,49,01,70,07,0 
2,A9,11,9D,FA,C3,B7,05,D0,AA, 2705 
427 DATA CA,8A,79,05,B0,B9,07,D0,AA,CA,E 
A,99,07,D09,60 „Oc,Dz, 02 „A0,02, "2895 
427 DATA 8E,D4,02,BD,F9,03,AA,EB,8A,AE,D 
4,02,9D0,F8,C3, EB, 38, DO,ED,CA, 3531 
431 DATA CA,BD,D7 ,02,F0,00,BD,FR,C3,AB,C 
9,78,9D,FA,03,40,33,78,BD,FA, 3302 
433 DATA C3,AB,58,78,9D,FA,C3,AC,D3,02,B 
D,F8,C3,09,18,F0,AF,B?,05,D0, 3308 
435 DATA AA,EB,8A,97,05,D0,89,07,00,AA,E 
A,8A,99,07,00,40,AG,CF,02,CE, 2897 
437 DATA EC,02,AD,EC,02,D0,2E,A9,07,8D,E 
C,02,AD,6F ,‚C1,E9,2F,AA,A9,00, 2554 
439 DATA 8D,CF „02,E0,00,F0,0C2,AD,CF,02,4 
9,0A,90,CF,02,CA,4C,6B,78,AD, 2351 
441 DATA 70,C1,E9,2F ,6D,CF,02,8D,ECF ,02,2 
9,AE,7A,9C,CF,02,AD,E1,02,09, 2531 
443 DATA 01,D0,42,CE,E5,02,AD ,E6&,02,D0,3 
A,A9,08,89D,66,02,AD,9A,C1,C9, 2655 
445 DATA 39,F0,05,EE,94,01,40,05,78,A2,3 
0,BE,9A,C1,AD,98,01,09,397,F0, 3012 
447 DATA 064,EE,98,C01,4C,D5,78,BE,98,C1,E 
E,77,61,AD,97,601,69,3A,D0D0,09, 3060 
449 DATA BE,97,C1,CE,D5,02,CE,CD,02,A49,3 
0,CD,4F;C1,D0,0B,CD,70,C1,Dü, 2783 
451 DATA 058,CD,72,C01,D0,01,60,40,39,AD,7 
2,01,09,30,F0,04,CE,72,01,40, 2604 
453 DATA 00,79,896,72,61,AD,70,01,09,30,F 
0,06, CE,70,£1,4C0,00,77,8C,70, 2525 
455 DATA C1,CE,4F,01,20,53,797,560,A0,30,A 
2,08,49,39, ‚ED,öF,C1, D0,0E,CD, 2575 
457 Data 70,C1,D0,09,C0D,72,01,D0,04,50,4 
C,14,79,20 ‚53,79, AD, 32 „1,09, 2476 
459 DATA 39 ,F0,06,EE,72,C1,AC,AF ‚79,80,7 
2,C1,AD,70,61,609,37,F0,064,EE, 27%71 
461 DATA 70,01 ,46,4F,79,80,70,C1,EE,öF,C 
1,CA,00,D4,60,AD,72,C01,C07,30, 3015 
453 DATA F0,01,60,AD,70,021,69,30,F0,01,6 
0,AD,6F,C1,C6C9,31,F0,09,C9,32, 2428 
455 DATA FO,05,69,33,F0,01,60,£60,30,F0,0 
4,EE,D1,02,50,CE,D1,02,50,AC, 2548 
447 DATA DO,02,CE,ED,02,AD,ED,02,D0,2E,A 
7,07,9D,ED,02,AD,4F,03,E9,2F, 2504 
463 DATA AA,AF,00,8D,00,02,E0,00,F0,00,A 
D,D0,02,69,04,8D,0D0,0?,CA,4C, 2293 
ar DATA 94,79, AD, 50, 3, E97 ,2F,&D,D0,02,8 
D,D0,02,20,EB,7A,8C, Do, 02,AD, 2505 
473 DATA E2,02,09,01,D0,42,CE, E7,02,AD,E 
7,02,00,34,69,08,9D,E7,02,AD, 253% 
475 DATA 7A,C3,69,39,F0,06,EE,/7A,03,40,0 
4, 7A,R2,30,0E,7A,C65,AD,78,035, 2735 


‚477 DATA C9,39,F0,06,EE,78,03,40,04,7A,8 


£,78,03,EE,77,C05,AD,77,03,09, 2956 

479 DATA 3A,D0,09,8E,77,C5,CE,D6,02,CE,C 
E,02,A9,30,CD,4F,C3,D0,0B,CD, 2687 

481 DATA 50,C3,D0,05,CD,52,03,D0,01,50,A 
0,39,#0,52,C03,09,30,F0,06,CE, 2644 _ 

485 DATA 52,03,46,58B,7A,80,52,03,4D,50,C 
3,C9,30,F0,06,CE,50,03,4C ‚SB, 2510 

485 DATA FA,8C, 50 „c3 „‚CE,AF,C3,20,82,74,6 
0,A0,30,A2,08, A9,39, CD,AF ,C3, 2480 

487 DATA DO, oE, ECD,50, ‚C3,D0, 09,CD,52,63,D 
0,04,60,40,43, 7A, 20, 92,7A,AD,, 2431 

489 DATA 52, c3, 09, 39 ,F0,06,FE,52 „E3,40,7 
E,74,80,52,03,AD,50,03,09,39, 2743 

491 DATA FO,06,EE,50,03,4C,7E,7A,8C0,50,C 
Z,EE,4F ‚C3,CA,DO,D4,60,AD,52, 2983 

493 DATA C3,09,30,F0,01,40,AD,50,03,09,3 
0,F0,01,60,AD,AF,C3,C9,51,F0, 2752 

495 DATA 09,09,32,F0,05,09,33,F0,01,60,C 


<86> 
<79> 
<22> 
<112> 
<186> 
<233> 
<117> 
<70> 


<154> 


<192> 


<26> 


<135> 


<213> 


<97> 

<208> 
<229> 
«109> 
<114> 
<166> 
2145> 
<iel> 
<24> 

£177> 
<180> 
<219> 
2903 

<227> 
<147> 
<201> 
<216> 
<78> 

<170> 
£197> 
<i&> 

<21> 


<68> 


programme 


0,30,F0,04,EE,D2,02,60,CE,D2, 2540 
497 DATA 02, 60, AD, EB „02,18, &D,CF,02,8D,E 
9,02,B0 „01,80, EE, E9, 02, AD,EI, 23566 
4997 DATA 02,69 „Ol,FD, 13, AD,EI,02,09,05,F 
0,01,60,A9 ‚AA,ED,FO, co, a7 ‚ac, 24753 
501 DATA ED,18, C1,60, AD, E37 ,02,09,14,D0,0 


. 8,49,49,90,F0,C0,49,49,0D, 18, 2523 


503 DATA Ci ,60,80,AD,EA,02,18,&D,D0,02,8 
D,ER,02,B0,01,60,EE, EB,02,AD, 2435 

505 DAT E2,02,09,01,F0,13,AD,EB,02,09,0 
5,F0,01,&0,47,4A,8D „Do,02,A9, 2597 

507 DATA 40,50, F8,02,60,AD,EB,02,09,14,D 
0,08,49,48,80,D0, C2,A9,49,8D, 2772 

509 DATA FB,C?,60,604,N5,06,D0,01 ,60,A9,0 
0,85,C06,AD,77,02,C9, 85,F0,05, 2675 

Sil DATA C9,86,F0,0D,60,AD,A9,02,C9,0F,D 
0,01,60,EE,A9,02,60,AD,A? „02, 2398 

si3 DATA D0,01,40,CE,A9,02,60,R9,50,8D,0 
5,D4,8D,00,D4,80,13,D4 ‚ED,06, 2279 

SiS DATA D4,A9,AF,‚8D,0D,D4,9D,14,D4,47,0 
3,690,02,04,80,09,D4,8D, 10,D4, 2553 

517 DATA 8D,03,D4,A9,05,8D,0A,D4,A9,06,8 
D,11,04,60,00,FF,00,FF,00, 2044 

519 FORI=0T063: READX : POKE39424+1 ,X:READX 
:POKE3F488+1 ‚X: READX: POKESISSZ+1 X 

521 READX: POKE3F616+1 „X READX:POKESF480+ 


I,.X:READX:2 POKE39744+1 „KeNEXT 
523 POKEA80 „Or: POKEAB1 ,8: PORES92, 8 


525 DATAB, 180, 34,207,43,219, 13,10,34, 207 
„43,219,8,180, 39,18, 46,118,13, 10,43,217 
527 DATAS2,39,7,1973,43,219,52,39,11,158, 
39,18,46, 118,7, 193 134,2197,43, 217,11,158 
529 DATAS1, 3,39, 18,5,207,29, 67, 34,207 ,8, 
190,29,697, 34, 207 ‚5,207,32,219,39,18,8. 
531 DATA1S0, 34 „207,45, 219,6,133, 32,219,3 
27,18,9,19& ‚32,219, 39 ,18,6,133,32,219, 39 
533 DATA1B,9, 196,32,219,39,18,8,180,34,2 
07,45,217,13,10,32,219,37,18,8,190,34 
535 DATA219,43, 219,13, 10,39,10,46,118, 7: 
193,43,219,52,39, iF, 158 ‚„39,19,45,118,7 
537 DATA193,34, 207, a5, 219, 11,159,31,3,39 
„18,5,207,29, #9, 34,207,8, 180, 297, 89, 34 
5594 DATA297, 5,207,46, 118, 58, 158,8, 100, Ab 
„118,58,158,5, 133,39, 18,52, 39 ‚9.196,39 
541 DATA18,52,397 „6,133,39, 18,58,138,9,19 
6,39,198,65,181,7,81,58,138,697,157,10 
543 DATA247, so, 138 „69,157 ,7,81,58, 138,67 
.157,10,247 Se, 138, 67,157,64133,52,37 
545 DATA&S, 191,9,196,592,37,65,181,6,133, 
52,39 „65,181, 7,176,52, 39, 65, 181,5, 207 
547 DATA44,118,50,138,8,180,45,118,50,15 
8,5,207,45,118,59,138 

549 "DATAB, 190,44,118,58,138,5,207,46,118 
‚58,138,8,180,364,118,58,138,5,207 

s51 DATA46,119,58,139,9,196,39,18,65, 183 
‚7,81 ,43,217,69,157,10,247 ,43,217,69 
553 DATA157,7,81,45,219,69,157,10,247 ,43 
„219,69,157,6,133,39,18,65,181,9,196,39 
555 DATA18,65,181,6,133,37,18,65,181,9,1 
96,39,18,65,181,5,207,34,207,5B, 158,8 
557 DATA180, 34,207 ,58,158,5,207,34,207,5 


'8B,158,8,180,34,207 ‚se,138, 5,207, 34,207 


557 DATASS,138,8,180,34,207,58,138,5,207 
„34,207,58,138,8,180,34,207,58,138 

361 FORK=832T0845: READO=POKEX ‚U: NEXT:SVS 
832 

563 DATA120,169,51,133,1,169,0,133,95,13 
3,70,133,89,169,208,133,96,169,240,133 
565 DATAB9,169,224,133,91,32,191,163,169 
‚35,133,1,88,97& 

567 POKEB50, 160: POKES6576 ,PEEK (56576) AND 
252: POKESF272,8: POKE44B, 192: PRINT" {CLEAR 
yzı 


Compube mi 


<R1S> 
1145 
«90> 
Ir 
<110> 
<a? 


«1465 


<239> 
<147> 
<194> 
<239> 
<125> 


«133> 
323 


<93> 
<212> 
<135> 
<36> 
<42> 
<119> 
<223> 
<254> 
<244> 
<217> 
<148> 
«1777 
<51> 
<216> 
<95> 
<26> 
<230> 
“2275 
<73> 
<77> 


<1r7> 


<114> 








programme 











569 READZE: IFZE=-1THENSFS 

571 FORT=0T07+READO: POKESTS44+ZERB-T, @:N 
EXT: GOT0569 

573 DATA64,170,170, 255,255, 255,255,170,2 
55,65, 468, 3,9344 3566; 86,89,99,99,87,86 
575 DATA127,127,687,95,137,149,149,149,85 
‚245,245,68,86,89,89,099,89,84, 127,127 
577 DATA&9,85,149,149,147, 149,85, 245,245 
‚35,4,9,112,255,255,112,9,4,36,32,1& 

577 DATA14,755,255,14,14,32,37,24,,24,60 
60,24, ,24,70,3,5,12,12,12,49,48,48,71 
581 DATA48,48,192,192,192,192,192,192,72 
‚2,2,8,8,8,32,32,32,73,32,32,128, 129,128 
583 DATA12R,128,128,74,15,15,15,60,60,680 
240 , 240,754 31313334313»3, 76,240 ,240,1972 
585 DATA192,172,192,192,192,77,85,170,25 
5,247 ,255,127 ,255, 253,80, 223,255, 253,255 
587 DATA127,247,170,85,77,85,169,221,244 
„116,244,244,208,78,208,208,208,64,,64,64 
589 DATA64,654,40,,192,60,19,17,8,8,4,41, 
»6,60;72,136,16,16,32,42,4,4,4,68, 136 
591 DATAL36,80, 22, a3, 32, 32, 32, 34, 17, 17,1 
0,4, 1 

593 DATAS&, zn 12, 0 Ads nl 2a dran 
16,3,120,48, ,,80, 25240, 3,120, ,724,,,48, 
595 DATA,32,,48,,48,49,,48,112,,24,100,, 
12,176, ar134 ändern nn nn Ahr . 
597 DATA4B, ,,48,,3,76,33, 100,2 ,100,,8,19 
2,,63, 1972,54 un n ur an 3034 4d nis 
597 DATA24,,1,12,,51,12,4,62,1242 3324, 1724 
7,48, ,6,64,,7,128,48,98, „98,96, 724,24 
601 DATR,12,12,47214,43,753333,129,,1,128 
»7r0,12045 9644202248, 402524 4,254, »1 
603 DATA226, 51,32, 274248, 31252, 21252, »1y1 
32,,1,192, 248, 1,252, „1,252, 21y12yy 54 
605 DATA,?48,,,248,,51,252,,1,28,4312,,20 
,6,23,2,264,3,27,1,45,128,49,208,51,96,; 
607 DATA20,48,23,16,26,168,29,16,54,1,57, 
15,34,3,37,1,40,1,45,1,58,16,61,240,, 
609 DATA49,128,572,128,51,1,54,3,52,128,5 
9,192,56,64 , 28, 11222, 373,222, 3735207, ,15 
611 DATAISS,4,30,7,28,60,5,184,48,1,240, 
48,,192,48, 4348, 14408, 1 3,484 sy S2yusmumv9 5 
613 DATA,,120,,540,,1,252,,1,220,,1,220, 
96,3,156,172,3,157,128,3,31,128,7,15,,6 
615 ST ne Mile 
40,,,248,,,248,,1,248, ,1,248, ,3,176,,35 
617 DATAI76, 235484 27,248, 417325423 3796,41 31 
12, 4348, 1498, 4348, 314132334323 ,224,,1,240 
619 DATA,S,220,,3,158, 375304347414, 514,14 
vs 29,14 2 1A As. 
621 DATA1,129,,1,128,,,128, ,,,86,87,07,8 
3,89,85, 127,127 ,85,147,149,149,149,85 
623 DATA?45,245,50,,,60,128,,31,128,,24, 
„34348, 55 ls an 16,3, 16, 7,128, ,7,192, 13 
625 DATAZ24,76,1,224,192,1,231,128, ,255, 
+,124,,4120,3160,7360, 413 50, u aa 7 3 er 
627 DATA,,,128,48,1,128,80,1,129,240,1,, 
120,2,,24,43, 348,245 232,240, ,7,192, 165, 
629 DATA,60,56,12,12,12,4,96,,16,120,192 
‚192,252,252,124,124,124,50,62,62,62,52 
631 DATASZ,31,6,63,9,65,12,19,34,4,37,60, 
AO,6AyöAyuysuaren nr, 125, 737240, 15 
633 DATA192, 11772 33240,334192,437433,8124, 
urA0 120,495 lhnnn län nn nid 
635 DATA, 129,3, 3,56,,3112,4 3224, 51,192, 435 
128, 5,6, 94 ZA nenn nr len 
637 DATASO, ya 117247, 1259 3,5175 128, ,5,120, 
‚7,192,,7,224,,53,2430, ,,248, 1,124, 1362,» 
639 DATAS1,,331,624 3762,32, 115, 9, 1 3,645 5 
33,32, 3,244+21,8,29 32,368, 4 57,128,40, 5 
641 DATA62, ,„,63,240,,51,252,,24,222,,4,4 
8,4580, 15240 gli Arad 3Zu nn 


<184> 
<204> 
<66> 
<&0> 
<184> 
<0> 
<105> 
<125> 
<191> 
«31> 
<59> 
<1B1> 
<168> 
<88> 
<141> 
<47> 
“193> 
69» 
%37> 
<b0> 
<84> 
“37> 
<214> 
<21? 
<24> 
<112> 
<t12> 
<B7> 
<1> 
<157> 
<26&> 
<204> 
<32> 
“26% 
<140> 
<62> 


<116> 


643 DATAZO, ,,15,3075 128, 11,192, 2,764 1740 
enlı 298,462, 5 148, Görsrl2unsthyyni2yn 

645 DATA12,,,100,,5553,16, 3,120, 4,34, ,,1& 
vro2dsygyidsun?s 128, ,1, 192,949 ,124,,,62 
647 DATA, „62 

647 FORI=50176T052108sPOKEI „OÖ: NEXT:FORE= 
OTOSSSTEPS: POKESOZO4+T „248: NEXT 

451 FORI=0T024: READX:PIKESOL77+I1,X: NEXT: 
FORG=0OTO18:READX= FORI=0T0192STEP64 

653 POKESO244+1+Q0,X3NEXTI:NEXTQ:FORI=OTO 
172STEP64: FORO=OTOS4: READY: POKESOT749 „1: 
655. FOKESO267+1+0,X:NEXTQ: NEXTISFORI=OTO 
1925TEP64: FÜRR=0TO14: READX 

457 POKESO494+1+Q,X:NEXTR: NEXTI:FORI=OTO 
192STEP&4: FOR@=0T064: READX READY 

657 POKESO494+1+X,YıNEXT@=NEXTI:FORI=ÖTO 
1972STEP44: FORB=0T049: READX 

&61 POKES0762+1+Q,XıNEXT@=NEXTI:FORI=OTO 
15: READX: POKES1009+1, X:NEXT . 

663 POKE646, PEEK (53281) : PRINT" {CLEAR}SPE 
ED: € SPACEI00.0XS PACEIM/HISPACESFHRSISPAC 
E43 QUALIFY: {SPACEIOO.OLSPACEIS"; 

665 PRINT"TIMETSPACE?: {SPACEIOO.OLSPACEI 
S{SPACEL12YSCORETSPACE2}Y: {SPACEIOODOTSPAC 
EP"; CHR$ (142) ; CHR$(8) 

667 FORI=0T079: PIKES#4844+1 ,FEEK (49152+1) 
:NEXT:FORI=0T023:READX: FOKES1200+1,X 

667 NEXT: FOKES1250, 172: POKES1253, 96: POKE 
51256,48: FORI=0T044:READX 

671 :POKES1273+1,Xs NEXTS FORI=0T027: READX= 
FOKES1331+1,X: NEXT=FORI=OTOG62STEFS 

673 READX:POKES13I2+1 ,X:NEXT:FORI=OTDKER 
EADZ: READX: FOKES1455+Z7 „X: NEXT 

675 FORI=0T033:READX: FOKES1520+1 ,X: NEXT: 
FORI=0T0S0 : READX : POKES1594+1, X: NEXT 

&77 FORI=9T055: READX: POKES1ASS+1,X: NEXT: 
FORI=0TG28: READX= POKES1713+1,X=:NEXT 

679 FORI=0T015: READX: FÜKES1776+1,X:NEXT: 
FORI=OTO48; READX = POKESI1B49+1,X= NEXT 

&B81 FORI=0T055: READX: PÜKES1910+L ,XzNEXT 
&83 FORI=0T03; FOKE?712+1,200: NEXT: PDKE7OG 
„12:3POKE701 ,11: POKE702, 15; POKE703, 15 

&85 POKE704 ,2:POKE705,0:POKE706,7:POKE7O 
7,7:POKE708,179: POKE709,103:5Y527184 





- 697 POKE710,20:PRINT"ICLEAR DOUNZ NGREY 


SPACE23 OD {DOHN LEFTZ2IRHISPAGEIARXIMSTSRA 
CE}PRODUCTIONSTSPAGEXHPRESENTSTEPACE2I=" 
689 POKE711,0:FRINT"{DGHNG WHITE SPACE3} 
T{SPACEFIHISPACEZIETSPAGEBIGTSPACEFIATSR 
ALEZIMISPACEZIETSPAGEIIS" 

591 PRINT"{BQHN?T BLACK SPACESYWRITTENESR 
ACEFTFANDISPACEIISTYLEDISPAGEZFBYISPACEZT 
- " « D$=" [3 

&93 FRINT"{DOUN SPACEFTLISPACEIHISPACEIOT 








SPACEIMISPACEI ALSPACEISTSPACESNMISPACEIA 


TSPACE}IR{SPACEIXISPACEIY TSSPACEINTSPATESZ 
PIISPACEIFLTSPACEYIBTSPACEYE" = FORI=OTD2000 
NEXT 

695 FORI= 1T070:NEXT: GETD$: IFD$<>"i1"ANDD& 
<>" ZU THENSFS 

&97 POKE739,ASC (DS) -48:5Y551744: GOTOABS 
II RR TINTE TEA IEE SC EIEIENE 








70i * * 
703 * W ROTEN :BN: * 
705 # * 
707 * THOMAS MARK * 
709 #* VEILCHENSTRASSE 56 * 
zı1 # 4370 MARL * 
715 # TEL. : 02345/62722 * 
715 * * 
717 % MUSIG ,. COMPOSED BY: * 
719 * * 
721 * CHRISTIAN HIKL % 


CSompute miß 


«9> 


<99> 
x105> 


22323 
<251> 
234 
“293 

<123> 
<177> 


<B95 
<81> 


«1935 
<72> 

<204> 
<220> 
<109> 
<176> 
<227> 


x222> 
177: 


«“129> 


23352 
«127> 
“162> 


<37? 


LEBE 


<128> 
«186> 
<129> 
<1957> 
<128> 
<1979> 
<54> 

2201> 
<203> 
<199> 


" <Z0W> 


KIR> 
213> 
<232> 


Ba 


of Death 


Immer wieder toll sind Raum- 
schiffsteuerspiele, die die 'Träg- 
heitssteuerung, wie sie im Weltall 
vorherrscht, simulieren. Cave of 
Death ist ein solches Spiel. Ein 
Raumschiff ist. durch ein ver- 
zweigtes Höhlenlabyrinth zu 
steuern. Wir haben uns beim Te- 
sten wirklich an den Joystick fest- 
geklammert. Cave of Death ist 
wahrlich ein höllisch schweres 
Spiel. Insgesamt 5 verschiedene 
















Bilder warten auf den en (wir 
haben nicht alle 5 geschafft!). 


Hinweise zum Abtippen 
Die Teile 1-5 von Cave of Death 
einzeln abtippen und absaven. 


Dann wieder einzeln laden und 
starten. Nach dem Laden von Ca- 


‚ve of Death Teil 5 geben Sie fol- 


genden Poke:ein: 
POKE 46,70 und können nun 
das Spiel als Ganzes absaven. 

















programme 
Mit dem C64 in der Höhle des Schreckens 


10130 DATA7O,126,126,174,126,126,126,30, 
30,71,30,31,31,31,7,1,0,0 
10140 DATA72,85,253,253,253,199, 189,189, 








189,73,189,189,189,1897,189,197,190,190 <166> 
10150 DATA74,180,244,244,244 ,244 ‚208,64, 
2,75,191,191,189,189,199,187,187,189 2365 
10160 DATA7&,189,189,45,45,45,45,49,49,7 
10 REM : a <9> 7,45,47,11,21;511,11,2,0 x209% 
20 REM =CAVE OF DEATH <249> | 10170 DATA78,254,254,1254,126,126,126,126 
30 REM =CHAR.-DATAS <1135> | ‚,126,79,126,126,120,120,120,120,120,120 <69? 
40 REM BY HARTMLUT OTT 230%F 10180 DATABO,120,248,224 ,224 224,224 ,128 
50 REM 2125: | „0,81,192,255, 255, 255,259, 253, 255,237 <a2% 
60 REM sa====Som neo ee 10170 DATABZ, 235,234 ,254 ,235,259 ,255, 255 
7a PRINT" ICLEARIHBITTELSPAGEFWARTENISPACE „255,83,3,63 , 255, 2599, 255,255, 299,234 <70> 
+, LSRACEHDATENISPALCE} WERDEN {SPACE}GELESE 10200 DATAB4,170,170,170,170,234 ,255,255 
m : <193> | ‚255,95,240,2592,255,255,255,255,255,191 x6s8> 
100 FORT=40900T041009: READR: IFA>-1 THENFO 10210 DATABA,175,107,171,175,255,259,253 
KET,A:S=S+A: NEXT k «1695 | ‚„255,87,0,3,207 ,255,255,245,213,209 “247> 
1309 IFS<£>S5884 THENPRINT"FEHLERISPACEI INS 10220 DATAB8,213,213,213,215,117,119,247 
PACEFDATASSPAGE? VON SPACE} 10009-10020": „255,89 ,60,255,255,259,255,127,75,31 <166> 
sıar «62> 10230 DATAFO,95,75,95,954119,1417,119,255 
150 SY540900: S=0: POKES5272,21 <207> | „27,56,46, 184 ,238,63,250,191,44 <123> 
?00 RERDA+IFA=-1THENSSO «181> | 10240 DATAZB,32,184,255,258,251,171,32,0 
aso 5=8+A <151> | „29,3,9,23,93,125,87 , 223,213 «97 > 
390 FORK=OTO7zREADL:S-S+L: POKEL1ZZUI+A#8+ 10250 DATASO,61,21,7,55,119,213,19,0,31, 
EK,1.:NEXT:G0T0209 %*173> | 112,212,95,117,117,93,212,212 «178% 
350 IFS< >B0OBSSTHENFRINT"FEHLERTSPACEF ING 10240 DATAS3,92,221,213,119,117,93,124,2 
SPACE?DATAS{SPACEINVDNTSPACEHLOIOG-10410" 08,36,1536,5,1,3,12,48,48 <5> 
STOP “16 10276 DATA3S,80,100,84,240,204,198,195,1 
A400 END x17> 95,1,254,254,199,198,254,198,198,0 <209> 
10000 DATA120,165,1,72,41,251,133,1,169, 10780 DATA?,254,194,194 ,252,194,194,254, 
208,133,3,169,48,153,5,160,0,132,2,132 <151> | 0,3,254,254,192,192,192,254,254,0 2123> 
10010 DATA4,162,52,177,2,145,4,200,208,2 10290 DATA4, 252,254 ,198,178,199,254,252, 
49,220,3,230,5,202,208,242,104 ,133,1 <197> | 0,5,252,192,172,240,192,192,252,0 <76> 
10020 DATA173,24,208,41,241,9,124,141,24, 10300 DATAA,254,254,192,248,248,192,192, 
208,88,96,—1 <241> | 0,7,254,172,192,206,178,198,254,0 <109> 
19100 DATA64,64,192,112,208,92,116,253,2 10310 DATAB,198,178,254,254,198,199,198, 
21,65,1,1,7,13,53,23,125, 117 «102> | 0,9,56 ,56 ‚56,56 ,56,56, 56,0 IX=R 
10110 DATA64,213,119,124,212,112,208,172 10320 DATA10,254 ,254,6,6,102,126,126,0,1 
‚64,67,117,97,53,27,15,5,1,3 ' <36> 1,198 ,204,252,240,204 ,206, 198,0 ; .. x170> 
10120 DATA68,117,221,119,221,119,221,119 10350 DAT@12,172,192,172,192,192,252,252 - 
»221,6%,85,127,127,127,126,126,125, 126 <77> 1:,0,13,254,214,214,214,198,178,198,0 <48> 
8186 GCompute mib 25 

















programme 


10340 DATA14,230,230,214,214,206,206,198 
‚0,15,254,254,198,199,198,254,254,0 
10350 DATA15,254,179,1978,254,254,192,172 
‚9,17,252,132,152,148,140,252,2,0 

10340 DATA18,234,194,194,254,224,716,198 
,0,19,254,172,192,254,,6,6,254,0 

10370 DATA20,126,126,24,24,24,24,24,0,21 
‚198, 196,198, 1978, 198,254,754,9 

10380 DATAZ2,198,198,198,179,198,108,56, 
0,23,198,198, 198,214 ,214,254,254,0 

10390 DATA24,198,108,56,56, 108,198, 130,0 
‚25,198,198,108, 56,24,48,192,0 

10400 DATA2&, 254 ,254,8,12,48,254,254,0,3 
7,198,0,254,254,198, 254,198,0 


10410 DATAS8, 198,0,254,198, 198, 254,254,0 


‚39,178,0,1978,198,198,254,254,0,-1 
ENDE DES LISTINGS 


20 REM =====CAVE OF DEATH 2 
=====SPRITEMAKER 





100 PRINT" {CLEARIBITTEISPACEIWARTEN, (SPA 
CE3DATENTSPACE}WERDEN{SPACE}GELESEN" 

200 FORT=14336T016000: READA: IFAR>-LTHENFO 
KET „A: S=S+tA: NEXT 

250 IFS< >5SO1STHENFRINT"FEHLER{SPACE? INT 
SPACE DEN (SPACE>IDATASTSPACEFERROR": STOP 
10060 DATA10,168,0,10,170,0,43,250,0,173 
254 ,0,173,254,0,175, 254 »04,170,190 

10010 DATAO, 42, 190, 0,0,190,0,0,170,0,10, 
186,0,43,248,0,43,249,0 

10020 DATA42,1698,0,10,160,0,2,160; guy 535 
SUSFTrHTTE Z 

10050 DATAO,40,0,0,170,0,40,190,0,194,19 
0,9,194,182, 0,184, ih2, O4 154, 190 

13040 DATAO,184,170,0, 196,190, 0,186,170, 
4,191, 254 ,0,191,254,0,191 

10050 DATA2S4,0,175,250,0,42,170,0,10,16 
Buntsysseryerreenn 

LO0&0 DATA1O,150,0,47,168,0,171,250,0,17 
5,122,2,191,122,0,171,248,0, 190 

10070 DATAL49,0,190,0,0,190,0,9,190, 168, 
[9 ‚191,248,0,191,248, 6,175 „232,0,171 
10080 DATALEB,0,42, 160,0, 105 12By una n 0 
711774 

10073 DATAL9,160,0,10,168,0,43,254,0,171 
‚250,0, 175,254, O, 191,254, 0,191 ,254 

19100 DATAO, 191, 254, 0,186,190,0, 164,158, 
0,1894,158,0,184,170 ‚0,184, 170,6 

1atıa DATA184,168,0,148,188,0,0,32, 3440» 
EU FIESITEFN 

10120 DATASz, 7372715, 192, ,15,192, ,42,160 
,7432,160,,170,168,,170,168,,170,16R, 
10130 DATA170,168, ,85,94, ‚95,84, ,85,94,, 
ae 25 DEREN ET TELLER ERESTERT 

10140 DATA,y12,,,252,,3,252,,10,252,,42, 
188, ,90,172,,896, 168, ,85,168, ,21,104,,5 - 
10150 DATABS, ,1,94, 5,404, 1 7 Usa ya as 
II ETIILILITN 

10120 DATA99, ,,90,,,90,128,,70,128,,70,1 
76,,70,17%, ,70,188,,70,198, ,70,176,,90 
10170 DATA176,,70,128,,70,129,,70,5,90, 35 
VITEITUWILLIEIPIITIITIH 

tG180 DATA,4y 232054784, ,1584, ,5,88, 521,8 
04, ,85,168, „86,168, ,70,172,,106,168, 
16190 DATA42,252,,3,252, 53292413124 sa27» 


IITFIIHIFTFEFTTIR 


10200 DATABS,84, ,95,84, ,85,84, ,85,84,,17 





<ı170> 
<24> 
<4> 
x87> 
<44> 
x192> 
x141> 


<1092> 


<9> 
<6i> 
<5> 
<127> 
<10> 
<59> 
<253> 
«79% 
<2377> 
<212> 
207> 
1323 
2172> 
Dr 85 
<37: 
27: 


“2> 


"x1225 


«1795 
x15> 
x134> 
126% 
i3> 
<ig> 
<5B> 
<158> 
<409> 
«1763 


207 


0,158, ,170,168, ,170,168,,170,188,,42 

10210 DATA150, ,42,160,,15,192,,15,192, ,3 

PIIÜHAFHIESRIITHTESÄAKIIITAN 

10220 DATABO, „,„84,,,85,4,95,64,,149,80, , 

165,04, ,169,84,,170,84,,234,148, ,259 

10230 DATA164,,254,129,,252, 45192, 439034 

IV ITTIITTITIITTFIVITUIITITY 

10240 DATA2,148,,2,148,,10,148,,10,148,, 

58,148, ,58,148, ‚250,148, ,250,148, ,58 

10250 DATA148, ,58,148,,10,148, ,10,148,,2 

‚148, 5,2, 148, sun II I nn 

10260 DATA192, ,„252,,,250,128, ,234,168,, 

170,164,,170,148, ‚179,94, ,169,84,,165 

10270 DATA8O, ,149,64,,85,,,84,,,80,,,64, 

PIE ITITTEITTITITIIITIIIH 

107290 DATA21,44,,106,144,,122,208, ,122,2 

08,,106,144,,26,144,,26,1444,22,144,,& 

10290 DATA144,,6,144, ,6,164,,1,100,,,100 

PReI: SRETOEEELEESRRERLEREREN, 

10300 DATA1,80,,6,164,,7,180,,7,180, ,6,1 

64,,26,144,,26,144,,26,64, 226,64, ,26,64 

103510 DATA,25, 3,5105, 55,100, ,, Bd gas yo 0 80 7 

VIIITTTIIILFRFI 

10320 DATA,40,,,196, ,2,187,128,2,187,128 

,„11,187,160,11,187,160,11,187,160 

10330 DATA4Z „187, 194, 187, 197, 186, 149,85, 

84,149,95,86,197,187,1854,197,187 

10335 DATALHS, 197, 197, 186, 187, 197,19&,18 

7,187 

10340 DATA186,187,187,186,187,187,184,1B 

7,187,185,197,197,186,170,170,170,9,-1 
ENDE DES LISTINGS 


====-TIGER — SOFT 


&0 REM Hrn mn mn m m m m m m mem mern 





80 FRINT"{CLZARFBITTE TSPACESWARTEN,. TSPAC 


EIDATEN {SPACE FWERDEN{SPALE}GELESEN" 





109 FORT=1S3I00T918000: READA: IFA>-LTHENFO 


KET ‚A: S=S+ArNEXT 

200 IFS<>63BIATHENPRINT"FEHLERCSPACE? INT 
SPACEIDENSPACEIDATEN" 

10009 DATAO,0,0,0,0,0,0,234,224,1549,1,14 
1,198,59,141,201,59, 167,204 

10010 DATA141,196,59,169,40,141,197,59,1 
69,248,141,199,59,167,61,141,200 

10020 DATAS7,169, 15,141, 
‚5,212,141,12,212,169 ,255,141 

10030 DATA6,212,141,13,212,167,0,141,0,2 
12,141,7,212,141,1,212,141,8,212 

10040 DATA141,3,212,141,10,212,169,202,1 
41,2,212,141,7,212,16% „65,141 ,4 

10050 DATA212,141,11,212,169,64,141,20,3 
„169,60 

10060 DATA141 ,21,3,96,169,49,141,20,3,1& 
9,2354,141,21,3,169,0,141,4 

10979 DATA212,141,11,212,96,169,1,141,20 
2,59, 162,0,173,202,59,201,1,240 

1N080 DATA2,162,3,222,198,59,189,198,59, 
201,0,208,101,189, 196,59, 133,253 

100970 DATA1L39,197,59,133,254,165,253,24, 
105,3,144,2,230,254,133,253,234 

10100 DATA160,2,177,253,201,0,208,26,224 
„34209,11,169,251,133,253,169,61 

10110 DATA133,254,76,112,60,169,207,133, 
253,169,40 

10120 DATA133,254,74,112,80,157,198,59,1 





Gompubs mib 


24 ,212,169,0,141. 


<44> 


783 


&77> 
<7> 
<184> 
2413 
“53% 
<192> 
<7> 
<69> 
Kb6} 
<22%> 
217? 
<237> 
ihr 


%147> 


<9> 

Ei = Pe 
217: 
<19787 
SaR7> 
“5F> 
“2337 
&193> 
“i162> 
Bar 


65 


KUI6> 


<B0> 
“1345 
39% 
S235> 
<126> 
<51> 
s14> 
216 


47 5) 


9186 








36,177,293,224 ,0,7209,6,141,1 

10130 DATAZ12,76,1&5,60,141,9,212,136,17 
7,253,224,0,208,6,141,0,212,76 

10140 DATA181,60,141,7,212,1645,255,157,1 
96,57,165,254,157,197,59,239,202 
10150 DATAS9,173,202,59,201,3,240,3,76,6 
9,60,76,49,254,10,13,10, 103,17 

10160 DATALO,137,17,10,1798,20,30,59,22,1 
0,137,19,30,178,20,10,103,17,36 

10170 BATA137,19,4,103,17,10,109,16,10,1 
03 

10180 DATA17,10,137,19,7,59,22,3,178,20, 
10,137,17,10,178,20,10,5? 

10170 DATA23,10,20,26,17,0,0,4,20,26,17, 
0,0,4,20,26,58,59,23,7,20,2& 

10200 DATA7,59,23,3,20,26,3,140,27,40,13 
7,17,20,178,20,7,59,23,7,178 

10210 DATA20,3,59,23,3,20,26,40,103,17,1 
7,0,0,4,103,17,9,137,19,10,178 

10220 DATA20,17,0,0,4,178,20,9,59,23,10, 
137,19,17,0,0,4,137,19 

10230 DATAF,178,20,10,103,17,20,0,0,40,5 
9,25,10,20,264,10,140,27,40 

10240 DATA137,19,20,178,20,10,59,23,10,2 
0,26,40,103,17,17,0,0,4,103,17 

10250 DATAZ,137,19,10,178,20,17,0,0,4,17 
9,20,9,597,23,10,137,19,17,0 

10740 DATAO,4,137,19,9,178,20,10,103,17, 
20,3,31,37,0,0,4,3,31,29,1&0 

10?70 DATA27,10,20,26,10,59,23,10,178,20 
‚10,137,19,10,103,17,10,109,1& 

10280 DATA10,105,17,20,207,34,37,0,0,4,3 
„=1,29,160,27,10,20 

10230 DATA26,10,59,25,10,178,20,10,137,1 
9,10,103,17,10,109,16,10,103,17 

0300 DATA2O,137,19,4,178,20,4,137,197,4; 
103,17,4,137,17,4,178,20,20,219 


103510 DATAS2,20,207,34,20,0,0,60,0,0,0,0 


‚0,30,90,4,10,45,5,10,133 


10320 DATAS, 10,1980,8,10,70,4,10,207,5,10 


„133,6, 10,55 

10330 DATAQ,19,90,4,10,45,5,10,133 

10349 DATA6,10,180,8,10,97,10,10,10,13,1 
0,89,10,10,176,9,10,180,8B 

10350 DATA1L0,10,15,10,180,8,10,10,13,10, 
55,8,10,10,13,10,252,6,10,10 

103540 DATA13,10,133,6,10,55,8,10,196,7,1 
0,10,13,10,133,6,10,55,8,10,196 

10370 DAT69,10,10,13,10,207,5,10,232,6,1 
0,55,8,10,196,9,10,207 ,5,10 

10380 DATA232,6,10,55,8,10,1976,9,10,45,5 
10390 DATA10,133,4,10,180,8,10,89,10,10, 
153,6,10,180,8,10,89,10,10 

10395 DATA78,12,10,137,6,10,180,8,10 
10400 DATA89,10,10,10,13,10,133,6,10,55, 
8,10,196,9,10,10,13,10,0,0,10 

10410 DATA90,4,10,45,5,10,135,6,10,190,8 
„19,0,0,40,251,2,10,27,4,10 

10420 DATA224A,4,10,207,5,10,232,8,10,133 
,6,10,207,5,10,0,0,10,150,2,10 

10430 DATAG&A,S,10,90,4,10,459,5,10,135,6, 
19,232,6,10,39,6,10 

10440 DATA66,3,10,232,6,10,180,8,10,133, 
6,10,56,3,10,133,6,10,55,8 

19450 DATA10,137,6,10,90,4,10,180,8,10,5 
5,8,10,180,8,10,123,5,10,180 

10460 DATAB,10,133,5,10,180,8,10,207,5,1 
0,180,8,10,193,7,10,180,8,10 

10470 DATA133,6,10,158,11,10,55,8,10,158 
‚11,10,232,6,10,87,10,10,189,8 

10480 DATA10,89,10,10,133,6,10,247,10,10 
‚180,9,10,247,8,10,207,5,10 ; 
10490 DATA158,11,10,180,8,10,159,11,10,1 


“249 5 
<114> 
<B> 
“2307 
<1090F 
=130> 
22047 
XII: 
<194> 
<44> 
“77 > 
1673 
“2017 
“2367 
21575 
1275 
21797 
a2: 
<Z10> 
437 


<a: 
<92> 


“137% 


237% 


<49> 


“88? 


1963 
«1B0> 


«18977 
<1987 
583 
<11:> 
<81> 
<5> 
S223r 
2577 


=> 


programme 


33,6,10,10,13,10,133,6,10,10 
10590 DATA13,10,180,8,20,133,6,20,90,4,2 
0,66,3,20,45,2,20,0,0,60,9,0,0,-1 

ENDE DES LISTINGS - 


19 REMIHRRRROBRIHHIHRIHIIH SERIE AH SE SENSE HERE 


20 REIRAHRRRE TEEN SEIEN HNEIENE 
30 REM####* HARTMUT OTT PRESENTS,. ##%%* 
40 REMAr### CAVE OF DEATH PART 4 EEE 
50 REM##r4## MASCHINENLCODEMAKER “Er 
60 REM##eK#* TIGER - SOFT EUR 
70 REM####*# KUSTERDINGEN 2722 


90 REM HH FE HH EEK 

90, REM ER RRNERREHUERENHHNER NE 

1N0 PRINT" {CLEARYFBITTECSPACEFWARTEN, {SPA 
\ „wiBFACEFGELESEN" 











ke - 


20G FORT=1&2540T01800G:READA: IFA>- LTHENPD. 


KET „A: 5=S+A: NEXT 

300 IFS< >13697FTHENPRINT"FEHLERTSPAGEI IN 
XSPAGCE}DENTSRAGEFDATEN" 

POOO REM HERREN RN 
9010 REMMHRRERKEDATEN Re 
9020 REMOTE EEE 
10000 DATA152,0,169,0,157,114,65,232,224 
„17,208,248,169,2,141,177,63,167 

13001 DATAF24,141,2,220,147,24,141,24,21 
2,169,0,141,19,212,159,255,141,20 

19002 DATA212,169,0,141,15,212,167,0,141 
‚14,212,96,173,0,220,41,94,201 

10003 DATAO ,208,189,204,248,7,173,248,7,2 
01 ,227,209,5,169,235,141,248,7 

100094 DATA7&,234,63,173,0,220,41,8,201,0 
‚208,19,258,248,7,175,248,7 

190605 DATAZG1 ,2356,208,5,169,274,141,248, 
7,76, 234,63,173,0,220,41,16,20i 

10006 DATAO,240,8,169,0,141,15,212,76,24 
1,64,173,248,7,201,228, 240,26 

10007 DATAZ01 ,229,240,30,201 ,230,240,37, 
201,231 ,240,43,201,232,240,52,201 ,235 
10008 DATA240,55,201,254,240,645,208,71,1 
62,2,32,112,64,76,236,64,162,2 

10009 DATAF2,112,64,162,4,532,112,684,76,2 
356,64,162,4,32,112,64,7&,236 

10010 DATAG4,152,4,32,112,64,162,6,52,11 
2,64,76,2356,64,162,6,32,112 

10011 DATA64,76,256,64,162,0,32,112,&64,1 
652,6,32,112,64,76,236,54,162 

10012 DATAO,S2,112,64,76,236,64,162,0,32 
‚112,64,162,2,32,112,64,7& i 
10013 DATA236,64,158,24,105,4,201,8,144, 
3,56,233,9,170,189,115,63,201 

10014 DATAO,240,59,197,115,63,598,2533,4,2 
49,46,176,44 ,24,105,8,157,115 j 
10015 DATA53,222,114,63,189,114,65, 201,2 
55,208,27,254,114,63,167,8,56,253 

100165 DATA1L15,63,168,138,24,105,4,201,8, 
144,3,56,233,8,170,152,157,115 

10017 DATA43,98,96,157,115,63,76,138,24, 
105,4,201,8,144,3,56,235,8 

10018 DATA170,189,115,63,24,105,4,201 ,8, 
144,21 ,56,233,8,157,115,65,254 

10017 DATA114,63,199,114,43,201,4,208,8, 
222,114,63,169,9,157,115,63,7& 

10029 DATA169,80,141,15,212,175,119,55,2 
01,0,249,29,238,118,63,173,0,208 

10021 'DATA24,109,118,63,144,10,170,173,% 
6,208,7,1,141,16,208,139,141,0 

10022 DATA209,208,119,6853,173,115,63,201, 
0,240,28,239,114,63,173,0,208,56 

19023 DATA237,114,63,1764,10,170,173,14,2 
08,41 ,254,141,16,200,138,1431,0,209 





GSompube mi 


733 


x241> 


%13> 
zanr 
ES Le’ m 
<157> 
239 > 
<129> 
<205> 
x835> 
&P37 
<RIF> 
“7a> 
«215” 
<80> 
345 
2100? 
32072 
“1147 
“28 
<194> 
22143 
231 
<54> 
<194> 
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<1189> 
297 
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<2057> 
<82> 
«2087 
<iä3> 
<757 
<87> 
<54 > 
<251> 
<xı1l> 
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programme 


19074 DATA206,114,43,173,117,63,201,0,24 
0,16,238,116,63,173,1,208,56,237 

10025 DATA116,63,141,1,208,206,116,63,17 
3,121 ,63,201,0,240,16,258,120,63 

1002& DATA173,1,208,24,109,120,63,141,1, 
208,206,120,63,238,122,63, 173,122 

10927 DATA&F,201,5,208,5,169,0,141,122,& 
7,152,0,187,115,63,201 ,0,20B 

10028 DATA16,232,232,224 ,8,208,243,173,1 
22,63,201 ,0,208,3,238,1,208,162 

10929 DATAO,189,115,63,201,0,240,25,222, 
115,63, 189,115,63,201,0,208,18 

10050 DATA189,114,63,201,0,240,8,222,114 
‚63,169,8,157,115,63,232,232,224 

10031 DATAB,208,218,964,234,234,174,128,6 
5,189,248,7,201,224,240,12,201,225 

10032 DATAZ40,36,201 ,226,240,47,201,227, 
240,61,173,128,63,10,170,222,0,208 

10937 DATA139,0,208,201 ,255,208,10,173,1 
6,208 ,56,237,129,43,141,16, 209,76 

10034 DATA1LF,56,173,128,63,10,170,222,1, 
208,76,19,66,173,128,53,10,170 

109035 DATA254,0,208,208,9,173,16,208,13, 
129,63,141,16,208,76,19,66,172 

10034 DATA128,63,10,170,254,1,208,96,169 
‚1,141,128,63,169,2,191,129,63 

10037 DATA173,21,2098,45,129,65,201,0,240 
,121,32,1894,65,173,16,208,45,1297 

10438 DATAA3,201,0,240,25,173,129,63,10, 
170,189,0,208,201,71,144,34,174 

10037 DATA128,63,169,224,157,248,7,78,16 
1,66,173,128,63,10,170,199,0,208 

1904Q DATA201,25,176,11,174,128,53,169,2 
26, 157,248,7,76,161,66,173,128,63 

10941 DATA10,170,189,1,208,201,51,176,11 
„174,128,53,169,227,157,248,7,76 

19042 DATA151,66,173,128,63,10,170,19%9,1 
‚208,201,220,144,27,172,129,67,169 

10043 DATA225,157 ,248,7,234,234 ,234 ,234, 
734,234 234,234 ,234 ,234 ‚234,234 , 254,234 
19244 DATA234,234,234,2324 ,234,239,128,63 
,14,129,63,175,129,55,201,16,240,3 

10045 DATA7&,30,66,96,234,234,234,169,16 
„141 ,129,63,169,4,141,178,63,173 

10046 DATA21 ,208,45,129,63,201,0,240,114 
,174,128,63,189,248,7,201,236,240 

10047 DATA4,201 ‚237 ,240,23,173,128,63,10 
‚170,222,0,208,199,0,208, 201,255 

12948 DATA208,10,173,16,200,56,237,129,6 
34141,16,208,76,8,67,173,129,63 

10049 DATA10,170,254,0,208,209,7,173,1&, 
208,13,129,63,141,16,208,173,16& 

10050 DATA209,45,129,63,701 ,0,240, 23,173 
„128,57,10,170,189,0,208,201,72 

10051 DATA144,8,169,236,174,128,63,157,2 
48,7,76,59,67,173,128,643,10,170 

10052 DATAIB9,0,208,201,24,176,9,169,237 
‚174,128,63,157,248,7,238,128,63 

19053 DATA14,129,63,173,129,63,201,128,2 
40,3,76,191,66,96,224,234,32,132 

10054 DATA63,32,20,66,32,179,66,32,180,6 
3,173,31,208,41,1,201,0,240 

10055 DATAI ,„9&,173,30,208,141,130,62,173 
,‚130,63,41,1,201,0,240,16,173 

19056 DATAIS0,63,41,129,201 ,0,208,1,96,1 
67,1,141,126,63,96,206,123,43 

19957 DATAL73,1235,63,201 ,255,208,44,16#, 
9,141,123,63,206,124,53,173,124 ,63 

18 DATAZO1 ,255,208,31,367,7,141,124,6 
3,208,125,643,173,125,63,201 ,255,208 
100597 DATA16,169,9,141,125,63,206, 127,68 
‚173,127,53,201 ,255,208,1,96,173 


AISH 
“33% 
“272 
95 
“1097 
Ras 
»171> 
Er 52 


“28? 


1307 
<EA> 
<128> 
x7> 
<B> 
2707 
Di Bi 
*53> 
21327 
2395 
„122> 
<24B5 
EIER 
“2413 


<11i16> 


69} 


<170> 


“164> 


“2i1l> 


A327 


x0O> 


10060 DATA127,63,24,105,48,141,161,7,173 
‚125,63,24,105,49,191,162,7,173 
10061 DATA124,63,24,105,48,141,163,7,172 
‚125,653,24,105,48,141,164,7,162 
10062 DATAO,160,0,200,208,233,252,236,13 
1,63,208,245,76,81,67,0,-1 

ENDE DES LISTINGS 


10 REMHHHSBEIR BREITEREN HEN 
20 REM###=HARTMUT OTT PRESENTS „.. ###%* 
30 REM#R#3CAVE OF DEATH ER 
40 REM#&#&PART 5 HAUFTFROGRAFMM une 
50 REM&t##BY TIGER - Sort Er 2202 
&0 REM####(CH BY TRONIE 2220 


TO REKEN RER NENENHENNERN- 
100 V=53248:5=54272 

110 PRINT" {CLEAR}" SPOKEV+24) 29: POKEV+Z2, 
PEEK. (V+22) ORi&: POKEV+32, 12: POKEV+33,12 
129 POKEV+34, 0: FOKEV+35, 2: POKEV+37 ,5: POk; 
EV+39 , Fr POKEV+39 45 POKEV+40, 0 

1350 POKEV+41 „U: FÜKEV+42, Q PÜKEV+45, 1: POk 
EV+44 , 1: FOKEV+45, 13 FOKEV+46,OsHI=200 

200 GOSUBS00O 

205 POKEV+32,0: PUKEV+33,0 

210 INPUT"{CLEAR PURPLE RIGHT4 DOWNSIWEL 
CHERTSPAGE}SCHWIERIGKEITSGRADTSFACEI (1-3 
)",658 

211 IFSG=1THENPOKEI6259 ,60 

21? IFS6=2THENPOKE16259,40 

213. IFSG=STHENPOKE16259 ,20 

220 PRINT" {CLEAR RIGHTI2 DOWNITIGTSPACE} 
ECSPACE?T{SPACESIRISPACEFETZPACEIATSPÄCE 
IDISFACEIY" 

230 FORT=1TOS00:NEXT:PRINT"{RIGHTIZ DOUN 
236<SPALE?D" =FORT=1T0200: NEXT 

250 POKEV+32, 123 POKEV+SS,12 

280 LI=3:50=0: BI=1 

285 POKES+24 ‚15: POKES+19,0: POKES+20 ‚255: 
POKES+14,0: POKES+15,0: POKES+18, 129 

290 SYS15307 f 

275 ONBIGOSUR20UG, 4000, 5000, 5000, 7000 
300 8Y517230 ; 

350 IFPEEK (16254) =SOTHENSOG 

400 FOKES6322,255:J=PEER 116251) +PEER (162 
52) *1O+PEEK {16253) #100+PEEK (16755) 41000 
420 SE=SC+J: BI=Bi+1: IFRI=STHENBI=1:POKEI 
4259 ‚PEEK (154259) -20 

422 IFPEEK (16259) =OTHENPOKE18259 ,20 

425 IFBI=STHENLI=LI+1 

430 FORT=9T07:POKEV+34, T: FOKEV+35,T:FORL 
=1T050: NEXT :NEXT=POREV+ 34,0: POKEV435,2 
440 GOTG275 

500 FOKEV+21,0: FOKEV+SL ,OELI=LI-1: IFLEC> 
OTHEN295 

600 SY5153405: FOEES6327 ‚255 

610 FOKES+4,04 POKES+11,0 

615 POKES+19,255: FOkES+20, 255: POKES+15,5 
:POKES+18,129 

620 FORT=1T02500:NEXT 

625 IFSC>HITHENHI=SC 

&30 FOKES+1R,0 

700 6070200 

1000 POKEZU40 ‚230: FOKE2041 ‚225: PIKEZO42, 
227: POKE2043 ,224: FOKE2044 ,236 

1010 POKE2045, 256: POKE7046, 237: FOKE2047, 
238: POKEV+28, 255 

1015 POKEV+31 ,O:POKEV+30,0 

1020 PRINT“ tSPACE3 HHITEITIMETZPACEI:TSP 
ACESILIVES{SPACEF E "LI 

1030 PRINT" <SPACEZISCHRETSPACEY 3 TSPACEI “ 
SC" TSPACESIHISCORETSPACE? : "HI 























Compute miß 


uw" 
<47: 


2257 


*13> 
36? 
Ei =/-P2 
«727 
x2> 
£79> 
IE 
gr 


<a0r 
23: 


5305 
©2513 
40: 


<l21> 
2463 
“224> 
2027 


=1B> 


«123» 
SP28; 
<64> 


<1345 
200 
405 
“1955 
975 


99% 


*179> 
246> 
<115> 


<230> 
&37> 
21943 


1243 
SLIF> 


<16> 
<789? 
90» 
“2315 
<251* 
<30> 


“F1> 
air 


<2077 


20% 





1050 RETURN 
1990 REMKHRNEEREHTHTR EEE HN INNERE IE 
1992 REM###&RBILD 1 EEERHRSIAI IE EIENHIEIEE 
1994 REIBSBBHE HAIR III NEN 
2000 PRINT"ICLEAR HOME”; 

2004 PRINT"{LIG.REDYF 17 





m! 


2002 PRINT" -{SPACETIT—TSPACEI TI TSA 
ACEF? HSREYY- -TSPACEF LIG. G-REDI—" 3 


2003 PRINT"-ISPACEFFT—-ISPACEIF -——: SSPACE 


11 HGREYILTTSPACEI LIG.REDY-"; 
2004 FRINT"-SPACESI-—TSPACE3I-! SPACE 
12 HGREYI"IIKCSPÄCE? LIG.REDI-"; 








2005 PRINT"—ISPACESI-——-TSPACE2TI-"5 
2004 PRINT"-ISPACEFI-—TSPACESI RM —-—-TZRA 
CEIIB-ISPACER— "3 

2007 PRINT"—-{SPALE7>—! {SPACES>: —-15PA 
CEBYB#— TSPACERI"5 

2008 PRINT" {5PAGET" —ISPACEFFTTTiSPAC 


ET3 | LSPAGESI-"} 


2069 PRINT"{SPACES HGREYSTIISPACE LIGR. 


EN?—TSPACESI -—SPACES}# ——ISPACESI "3 
2010 PRINT"-ISPACEB HGREY3I-- TSPACEIT LIG 
„REDI— n 

Dran! CHGREYI- -XSPACES LIG.REDY-"; 

2011 PRINT"—{SPACER HEREY?| -{SPACET, DERE 








YIS#LSPACE LIG.REDIR—- --CHBRENNTE 
SPACES LIG.REDI-"; 
2012 PRINT"—ISPACE 163 —— |! CHR 





EY3KSPACES, LIG.REB>T"; 

2013 PRINT"—ISAACEI £IG.GREEN}1_TSPACELO 
LIG-RED+> 2 ——£SPACE HGREY+" !TSPACE4 ifG 
„REDI-——{SPACETIT"z 

2513 PRINT"—{LIG.-GREEN>TN{SPACES" NSPACE 








9 LIG.REBIS— TI {SPACE HOREYI—. TSPACES L 
IG-REDI+ —{SPACETIT": 
2015 PRINT" ae TSPACER H 











GREY}: "ISPACES. LIG.REDS--—--TSPAGESI-"} 
2015 FRINT"—-{SPAGE* HGREYITIXSPACE LIG.R 
EDY-——LSPACEITI RT ISPACESI—"5 





2017 PRINT"-ISPACES HGREYI.- TSPÄLE2 LIG. 


RED3--—! {SPACE 1834 — TSPAGEFF—"3 

2018 PRINT"-{SPACES HGREYY! -TEPACE2O LIE 
„RED? — | SSPAGETI-"3 

2017 PRINT"-{SPACE3SI-" 5 

2020 PRINT"—ISPAGEIS>*-{SPACEZWI-" 

2021 PRINT"-ISPACEIS} -# —-1SPACE LIG.GR 
EER}3_ISPACEIS LIG.REDY—"; 

2072. PRINT"-{SPACET DGREYYENTSPACEZISHHL 
16. RED+®———-{LIG GREEN?" ISPACEIO DER 
Er}SRCSPACEZ LIG.REDI—"; 

2023 PRINT"— 


Ho 











2040 POKEV+0O „40: POIKEV+1 „ba: POKEV+2, 192: P 
OKEV+2 ‚74: POKEV+8 „144: POKEV+7,170 

2045 POKEV+10,104: POKEVY+11,1TA:POKEV+I14, 
40: FDKLEV+15, 210: POKEV+LA,O 

2950 GOSUBI1O0OU 

2055 FOREV+21,179:RETURN 3 

2990 REMURUHNRNKEEHIE HT HH ENTE HN TH RER 

29392 REM###HTITELBILD menu 

2993 REMBRREHE RR 

3000 PRINT"{CLEAR HOHEN: 

3001 FRINT"{IPURPLEITISPAGES REDITISPACE} 
T{SPALEIG{SPACEFETSPACEIREISPACEIT NSPATCEN 
SISPACEIDLSPACEIF TSPACEITISPACEZ KHITE}P 
RESENFS. . „ {SPACE3>" 3 

3002 PRINT"{PURPLEIRISPACEZ3IF": 

3005 FPRINT"EXISPALESFYT"z 

3004 PRINT"AISPACE2 CYAN>CAVETSPACEHOFfSE 
PACE BLUEYDDDDISPALE? GREENFEEEISPACE Bi 
ACKYAAAHLSPACE YELLOHFTTTTTISPACE REDIHE 
SPACEZIHISPALESI" N 








“1723 
S210> 
“597 

2147 
%197> 


72409> 


“77? 
239% 


E7.7.5° 
z21> 


<196} 
<44} 
<B> 


957 
©1975> 


203 
1695 


<100> 


2244> 
<i1O> 
180° 
s19R> 
«1877 
2455 
+170> 


“158% 


Z14> 
<181> 
323 


895 
2375 
<151> 
<190> 
«1425 
“193> 
<177> 


<2i1l> 


x2453 
“1097 


s122> 


programme 


‚3005 PRINT" {PURPLEYTISPAGCEIO BLUEFDISPAC 
E3ID{SPACE GREENYEISPACEZ BLACKIATEPACER 


FALISPAGCEZ YELLOWIT{SPACEZ REDYHISPACE2IH 
SSPACEFF"; 
3006 PRINT"{PURPLEIDISPACEIO BLUEFD{SFAL 


E3}DISPACE GREEN>EETSPACE? BLACKFAAAATSE 








ACEZ YELLOWYTISPACEZ REDFHHHHTSPACESF" 5 

53007 PRINT"{SPACEII BLUEID{SPACEZIDISPAC 
E GREENFETSPACEZ BLACKFRESPACEZFATSPACES 
YELLONFTISPACEIS REDIHISPACEZIHISPACEIT" 





{4 

Z00O8 FRINT"IFUÜRFPLEIAISPACELO BLUEFDISPAC 
EIIDESPACE GREENFYETSPFACEZ BLACKIATSPACE2 
IALSPACEZ YELLOWITISBACEZ REDYHISPACEFFH 
{SPACESY"; 

3009 PRINT"ZPURPLEFNISPAGCEIO BLUEYDDDD{S 
PACE2 GREENIEEEISPACE BLACKIATSPACEZIATS 
PACE3Z YELLOWYT{SPACE3 REDIHISPACEZFHISPA 
CEA+"; 

3010 PRINT" {PURPLEIDISPACEIP?": 

3011 PRINT"ISPACEZ WHITEYDIETSPAGEFMUSIK 
KSPAGEIWURDE ISPACE)Y VON{SPACEFDERTSPACEIS 
DNATE{SPACETY" 5 

35012 PRINT" XPURPLE>YDISPACED2 HHITEFFATHET 
iQUEISPACE?1. + SSPAGEISATZISPACEIVONTSPACE 
H..V. ISPACEFBEET-ISPACEFS" 3 

3013 PRINT" TPURPLEFETSPACEZ HHITEIHDVENT 
SPACEFENTNOMMEN. {SPAGEZTF": 

3014 3014 PRINT" {PURPLEISTSPACE3FF"; 

3015 PRINT"I{SPRACE2 BLACKYKURZELISPALE}SF 
TELBESCHRE TBUNGTSPACE3 = (SPACEIZY”" 5 

3045 PRINT" TPURPLEIGTSPACEIFH" 

3017 PRINT"N{SPACEZ2 BLUESSIEISPACEIHÄBEN 
ISPACEFDENTSPALEFAUFTRAG {SPACE} BEKOMMENT 
SPACEFINTZSPAGEL" 

3018 PRINT" {PURPLEFETSPACE2 BLHEYVERSCH. 
SPACE FHEHLENTSPACEISCHATZEISEACEY ZULSPA SpA 
GE?YBERGEN. ISPACES3" 5 

3019 FRINT"{PARPLEIDISPACEZ YELLOU>LEIDE 
RISPACEIHATISPACEIDIE {SPALEFSACHE TSPACE} 
EINEN{SPACEHHAKEN. ASPACESI" 

520 PRINT" ISPACE33DIE SPACEIMONSTER, ISP. 
ALEIBESPENSTERTSPACEFUND (SPACEIDIE{SPACE 
63"3 

3021 PRINT" LPURPLE>RB{SPAGER YELLOWYZEIT, 
(SPACEYDIETSPACEHUNBARMHERZ IGTSPACE HABW?, 
RTS{SPACEFZFHLTTSPAGE" 4 

3022 FRINT"{IPURPLEIYISPACE2 YELLOHFMACHE 
N{SPACE 5 IHNEN{SPACEIEINEN{SPACEISTRIEHTS 
PALCE:DURCHTSPAGEIDIE TSPACERY" 5 

3023 PRINT" XSPACEI>RECHNUNG. TSPACE CYAN} 
"BUNG{SPACE}MÄCHT SFACEIDENTSFACETFMEISTE 
RISPACEr - ISPATE2+"S 

5924 PRINT 

3025 PRINT" ZPERPLE>HARTMUT<ISPACEHOTTIEPA 
CE3 „{SPACEFKUSTERDINGEN{SPACEI FI”: 

30350 FOÜRT=1T9290: NEXT 2 

3040 POKE1I8,0 

3050 GETA$: IFAF=""THENSOSO 

3100 RETURN 

3990 REMEH HERIBERT 

3992 ReMeesers&BILD 2 WERBEN 

3994. REIHE 

4000 FRINT"XCLEAR HOBEY”"; 

4001 PRINT"{HEREY} 


u—— un 

































































3002 PRINT"-{SHIFTSPACES DGREY} - \{HGREY> 
—-| {SHIFTSPACE LIG.BEUEST IMGREY SHIFTSP 
ACEZ2 LIG.RED+” ICHGREY. SHIFTSPACEI-"} 

4003 PRINT"-ISHIFTSPACES DOREY}-. CHGREY 
SHIFTSPACEI— | {LIG. BLUE? CHGREY SHIETSP 
ACE22 LIG.RED>.... {MGREY. SHIFTSPACEI-"3 

4004 PRINT"—ISHIFTSPACES, DGREY>| -CHGREYY 














Computhe mib 





“96: 


<1147 


«137: 


„137 


S3l> 


SAFT 


«95 


% 


Ex - Dr 


“287 
x5> 


254% 
2153 
“245: 
<iB4: 
<44 5 
<2227F 
223 
C2D2R* 
410° 
«116% 
«110: 
re) a 2 
<2107F 
<114> 
«18925 
“170> 
x299> 
1743 
<157%+ 


s60:r 
2343 


“2457 





programme 





#—ISHIFTSPACE LIG.BLUEF\ -IHGREY SHIFTSP 
ACE22 LIG.REBY| "{NGREY SHIFTSPACEI-"3 
4505 4005 PRINT"-ISHIFTSPÄRESIE————(SHIFTSPAC 
E38 LIG.-BLHEFLNIHGREY SHIFTSPACELITI-"; 
acc PRINT"—ISHIFTSPACESY- 


ES+a————- SHIFTSPACEZ HGREYFLNCHGREY 
SHIFTSPAGETIT" 























4007 PRINT"—-{SHIETSPACESI-——-{SHIFTSPACE 
LI ———TtSHIFTSPACEI --{SHIFTSPÄACE- 
9 BHAFISLDGE SAIFTSFALE 
2008 PRINT"—{SHIFTSPACES} KSHLETSPAC. 
E SPACE SHIFTSPAGESI—I 1 {SH 
IFTSPACEAFT"3 

#009 PRINT"—-{SHIFTSPALCESFATTT—TSHIETSPAT 





EIS BROUN3- /IHGREY SHLETSPACE3>——CSHIET 
SPACEAI—"5 

- 40109 PRINT"—TSHIETSPACES SPACE} £SHL. 

FTSPACEIS BROHNHI THGREY. SHIETSPACELIT—L 
SHIETSPACESI-"3 

4011 PRIN "-CSHIFTSPACEA LIG.GREENII_CHG 
REYI "{SHIFTSPACE BEREY>I_MGREY. SHIE 
TSPACE12 BROHNY.ICHGREY. SHIFTSPACEZIATTS. 
HIETSPACESI-"; 

A012 PRINT" -£SHIETSPACEIF ET —-IPGBEN 
3X CHGREY SHIFTSPACELFF -TSHIETSPALESY" 























A013 FRINT"—TSHIFETSPACE ITS 
SHIFTSPACEISF——ISHIFTSFACESITNG 

4014 PRINT"—-{3RAGE I} SPACEIA BR 
OHNISHISPACEL MHEREYF SPACE TI" 

4015 PRINT"—{SPACER 7707 — TBROHNFSRT 


SPAGEI HGREY?YALLIG.BLUETES „n |LHGREYFTT—T 
= SPACE" 

4014 PRINT"—ISPACES HGREY}Y--{SPACEZ HERE 
YE--7 —tLIG.BEUEY SR STHGREYI 
—-SPACEII-"3 

40917 PRINT"-IZPACER HOREYHITEPACEI HERE 























y3- 1 ——  SPACESF—" 
Ag18 FRINT"-TSPACER HEREYY "TSPACEIO HOR 
Erim"s & 


4019 PRINTP-ISPAGEIS) -"; 

A020 PRINT"-TIPACEIS?-": 

4021 PRINT"-ISPAGEIO LIG.-GREEN}I_ISPACER 
& MGREYI-": 

4022 PRINT"-ISPACEZ DEREYISHLSPACES LI6. 
GREENF"'CSPACED DOREYISHISPACEHNSHISPACE 
IISHLSPACEE LIG.GREENSCNISPACER MOREYI—" 

















4023 PRINT” 
a ne vo sn tu IÜ 
40309 FOKEVrO, 40: FOREV+1,66: FOKEY+2,32:F0 
KEV+T, 194: POREU+4, 144; FOKEV+S,98 
4040 FOREU+G, 184: PIKEV+7, 139: POKEV+B, 104 
: FOKEV+9 , 184: POKEV+14 ,9: POKEV+19, 146 
4509 POKEVY+14,129 
4060 BOSUBLUNO: POKEV+21, 159: RETURN 
4290 REM HEEHEREHUENH HN HAKEN 
49972 REMRRRHKNEHEBILD I ehe 
4774 REM ER N HR IENRUH 
Scö0 PFRINT"{ICLEAR HOBE}”; 
Ssuo1 FRINT"{LIG.BEUEN 
nn m — i u — fd 3 
Ssao2 PRINT" ——| CHGREYY- 1CSPACE22 LIO. Bt 
UEh-- IXSPATEZ DEREYYTISPAGE LIG.BEUE} 
Nu 

$ 
5005 PRINT"—-ITSPALCEZ HGREYY- {SPACE2Z LI 
G.BIUEF-—IÄSPACEI BEREYY— SPACE LIG.BEH 
ENOR 
5004 FRINT"-IZFACES HORET}I 
HNIEHLSPAGEIS DEREY I SPACE LIG.BEUESTN 




















3 
Sons. PRINT"TE SPACE TFT TERACH HEREIN 
"EEPAGETS LIO-BLUEFVZ 





ISHIFTSPAC 


tSPACEI? BRO 


"022% 


x111> 


«190> 


x21> 


<119>. 


2293 


x87> 
Era) 26 
ERF> 


x171> 
141% 
1545 


210> 
2177 
AUF 

21505 
SR297 
15945 
137% 


S20B> 


Aldß>, 


2123 


2154>_ 


‚5010 PRINT"—CSPACE4} 


500& PRINT"—ISPAGEIZ BRANGEILNISPACEZ LT 





G.BLUEIET— —{BROHNYFRISPACEI LIG.B 
LUEI—"; 


5007 PRINT"-ISPACESI S-RR 0 — —— 


} —tSPACETIT"3 

5008. PRINT"-{TSPACESIT, 
BROWNY- /{SPACE LIS.RED}- - 
Er — A 

5097 PRINT"-ISPACE4} TSPAGEL2 BRO 
HUNILITISPACE LIO. REDHLITSPACES £IG. BLUES 


LSPACEZ 





1 #6 —— | TSPACET 
SPACE LIG.BLU 








ITSPACEI2 BRO 
Hu. TYESPACE LIG.REDYTMSPACES LIG.BLUEF— 
5011 PRINT" -ISPAGEITF@-TSPACELPI-": 

SOLZ PRINT"-SSPACEISIETTILSPACEIST-"3 
S913 PRINT" SPACE III TSEALES 
XSPACESIT", 

So14 014 PRINT" -{SPACELONG —— | ISPACEI- — 
#90 T—tSPACESI-"3 

5015 FRINT"-{ISPACEI MEREYII_ISPACES - -LIG. 
BLUE} E-—— | CHGREY3 — KSPACEA £IG.BLUEI—— 
ame TISPAGESHI IN" , 

5016 PRINT"-{DGREYISHISPACE MEREYI"! SPA 
GE LIG.BLUE+E# 1 {SPACES HGREY>—. {SPACE 
5 LIG.BLUEN -—— er {SPACEII—-" 3 

5017 PRINT” ITSPALES, HGREY}) ASP 
ACE6 LIG.GREENY-SXZPACE BROHNFT IESPACE L 
IG-BLUEI-———-TSPAGEII "5 

5918 PRINT"Y1 1 TiSPACEIS LIG-GREEN}L 
UXSPACE BROHNF— ISPACEZ LIG.BLUYEF—-——{ZR 
AGESI—"r 

5019 PRINT"-ISPACEZI LIG-GREENFMHSPACE 
BROHN>N "ASPACEZ LIG.-BLUEH-—ISPACEFI-"3 
5020 PRINT"-{ISPACE38I-"5 

5021 PRINT"-tSPACEIS £I0- RED: I_{SPACE21 
LIG.BIWEY-"; 

5022 PRINT"—-ISPACEF £EIG.-GREENYLNTSPACE D 
GREYISHISPACE  LIG-REDY"!SPACES DOREY}EH 
TSPACKIYSHISPACET £EIG,BIYUEFTNT"5 

5023 FRINT"- 























5050 FOKEY+1 „57: POBEV+2, 154: FOREV+3 ,40:P 
OKEV+4 „74: FOKEV+5, 176: PÜKENV+& ,162 

5035 POFEV+7, 128: POKEV+9, 114: POKEV+7,144 
: FOKEV+10 , 58: FOKEV+14 „49: FOREV+15, 92 
5040 POKEV+N,40: POKEV+1 ‚202: POREV+1&,178 
:50S5UB1000: POKEV+21, 1971: RETURK 

570 REM IH 
5992? REMrARRHHRHKRAKE ILD 42 KUREN 
5794 REMIKERSEREERH TUNER FTIR IH IE 
&O00O FRINT"ICLEAR HONES"; 

60061 PRINT" IDGREY?Y- 


SENDE EVENT 


Ko0U2 PRINT"-ISPALEZ LIG.REDY- 








rtSPACE2 DE 


REYI-ISPÄACER HEREYI-SISPACE BROWNNFTIESP 


ACE# LIG.GREEN}- "£3PA 
CE& BOREY}—"5 

6003 PRINT"—ISPACEZ 116. REDSLT<SPÄCE BER 
EY}A-—-TSPACEZ HEREYSLSÄSPACE BROHN}—- SP. 
ACE4 LIG.GREEN?L FTSPÄLER LIG. BEVEILSTSPA 
CE& DOREY>-"3 

6004 FRINT"--{SPACEZ 116. RED>* "IESPACE DER 
EYF————{SFACE HOREYY SPACE BROHNF! {SR 
ACES LIS.GREEN} -TÄSHIFTSPACE SPACE? LI6. 
BLHE> SKSPAGCES IGREYY—"$ 

5005 PRINTP-SPACES?E-{SPACEIS BRÄNGE 
I {SPACEIL DEREY?-"; 

&09& PRINT"-{SPAGESI———TEPACEIS ORANGE 
PTIESPACELE DEREN" 

6007 PRINT"--<SPAGESI A ————{SPACES ORANG 
EISHLZPACER BOREY? EU -(SBACES 
Fa 


TSPACES LIG.BIWE?-. 














Gompute mit 


“Sr 


<249)7 
<107> 
2297 


2417 
xisä> 


1437 


«2547 


79? 
<62> 
«1195 
<161> 


“723 


. Ka43 


«186? 


“2045 


«172> 
<121> 
<152> 
2945 

244% 
<120> 
£9a> 


<ı1347 
x117> 


168: 


229% 


«2175 
“91> 


x19> 


24118> 








ner 


B00B FRINT "-{SPACEZ? a ——— ESPACESF- ———- 
ESPACELON-—XSPALCESIT", 
E009 ERINT"-ESPACET? 
PACES— TSPACELIS ISPACEHIT"5 
&010 PRINT"-{SPACEIF- 
PACK} | "ESPACEIEI-"3 
Rate) 3 PRINT"-{SPACESI- 
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Programmautoren 
- aufgepaßt! 


Der 'Ironic-Verlag bietet 


Spitzenhonorare für 


Ihre Spitzenprogramme! 


Und - Sie haben 


die Chance in unserem 
Autoren-Wettbewerb 
zusätzlich zu gewinnen! 
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software-service 


Haft 5/85 


Commodore 

Bestell-Nr. COM CK 17/1 16,- DM 
Bestell-Nr. GEM CD 1/1 20,- DM 
Senso (G-18/116), Jungle (6-64), Auto- 
start (6-64), Senuenzer (6-54), Sufo 
(©-64), Olympia (76-20), Flowers (VG-20) 


Schneider‘ 

Bestell-Nr. GOM sKı 16,- DM 
Cobra, Krümi, Hauntod Castle, Q-Beri, 
ROM-CALLS 


Huft 9/85 

Commodore . , 
Bestell-Nr. COM CK 5/1 16,- OM 
Bestell-Nr. COM CD 5/1 20.- DM 


Supermoni 84 (C-64), Galaxy (G-64), At- 
tantis (6-84), Skaolin (C-16), Hospitat 


(VC-20), Fiipper-Ball (WG-20), Allen 
{VG-20) 

Schneider 

Bestell-Nr. COM SK 5/1 t6,- DM. 
Bestell-Nr. COM SD 5/1 39,- DM 


Duell, Crash, Citylandar, Kiondiko, REM- 
Killer 


Net 1/86 

Commodore 

Bestell-Nr. COM CK 1/2 16,- DM 
Bestell-Nr. COM CD 1/2 20,- DM 


Checksummer 1.0 6, Astronaut Battle 
(6-84), Hueycobra (6-18/116), Hardeopy- 
routine (G-18/116), Helmut und die Zeit- 
maschine {C-18/116), Locos [VE-20), 
Rock'me (VC-20), Charly der Rahoten- 
mann (VC-20), Interrupt-Programmie- 
rung (VC-20) 


Schnelder 
Bestell-Nr. COM SK 1/2 16,- DM 
Bostell-Nr. COM SD 1/2 39,- DM 


Doafender, Bouldor Dashı, Basic-Befechle 


auf den Funktionstasten 

Haft 5/86 

Commodore 

Bestell-Nr. COM CK 5/2 16,- DM 
Bestell-Nr. COM CD 5/2 20,- DM 


Space-Devil (C-64), Disk-Eddi (6-64), 
ABC-Legen (V-20), 3-D-Labyrintk (VC- 
20), Tron (UC-20), Invaders of Space (C- 
16/116), Submarins {6-16/116), Balken- 
dlugramm (C-18/110) 


Schneider ’ 
Bestell-Nr. GOM SK 5/2 18,- DM 
Bastell-Nr. COM SD 5/2 39,- DM 


Startank, Grafik-Dasigner, Cross-Rofo- 
rance, Itoxt 


Heft 6/85 


Cemmpdare 
Besiell-Nr. COM CK 2/1 
Bestell-Nr. COM EU 2/1 
Mampimas 6-64), Softlanding IC-64), 
Karate (6-64), Einbrecher (6-20), Tan- 
kar (WC-20), Jupiter Rescus (WG-20), 
$0S-Schiffbruch (C-18) 


Scheeider 
Bestell-Nr, COM SK 2/1 


16,- OM 


Taststurhelegung, Cave-Aunner, Did- 
Shurehand 


Heft 10/85 

Commadare 

Bestell-Nr. COM CK 8/1 16,- DM 
Bestell-Nr. COM CD 8/1 20, DM 


Tha Casile of Dr. Cresp (#G-20), Catchgo 
[VC-26), Suh-Zons [NG-20), The Maze 
Graz Game {G-64), Super-Breakout 
(6-84), Planet ol Death (C-64), Fuak- 


tionstasten-Programmierung (6-54), 
Car Race (C-18/916), Key-Heiper 
{G-18/116} 
Schneider 
Bestell-Nr. COM SK 9/1 16,- DM 
BesteH-Nr. COM SD 8/1 39,- DM 


Labyrinth, Catch, Mini Car Race, InkaSo- 


‚gra,.Single Disk Backup 


Heft 2/86 
Commodore 

Bestell-Nr. COM CK 2/2 18,- DM 
Bestell-Nr. COM CD 2/2 20.- DM 


Bobo {C-54}, Besic-Befehlserweitsrung 
(6-54); Rakstenstart (G-16/116), Drei- 
kampf (C-16/116), Headiina (&-16/116}, 
Defender (VG-20), Formel 1 (VG-20), Me- 
mory-Display (UG-20) ö 


Schneider 
Bestell-Nr. COM SH 2/2 16,- DM 
Bestell-Nr. COM SD 2/2 38,- DM 


Allen 2001, Diamond Hunter, Directory 


Heft 6/86 

Gemmodore 

Bestell-Nr. COM CK 6/2 16,- DM 
Besteil-Nr. GOM CD 8/2 20,- EM 


Musis-Mastar (0-84), The little Puck 
goes home (C-64), EBNY (C-64), Invars- 
UHly [C-16/118), Chacksummer (6-15/ 


128), Affenwurt (G-16/116}, Data-Maker 


(WE-20), Karate-Kid {VC-20), Q-Hert [IG- 
20) 

Schneider 

Bestell-Nr. COM SK 8/2 
Bestell-Nr. COM SB 6/2 
Disksort, Mint-Forth, Starcommand 


16,- DM 


Bestell-Nr. COM CK 3/1 18,- DM 
Bestell-Nr. C0W CD 3/1 20,- DM 
$aa-Attak (C-64), Sace-Age (6-64), Mic- 
ro-Tools (C-64), Bisky 1.0 (6-84), Stunt- 
man (VC-26), Sepp MG-20}, Balloon- 
Shoot (VC-20), Farbenfroh (6-16) 
Schnelder 

Bestell-Nr. COM SK 3/1 
Bestell-Nr. COM SO 3/1 
Secret Valtey, Smileymat, 


16,- DM 
39,- DM 


Commodore 

Bestell-Nr. COM CK 7/1 16,- 
Bestell-Nr. COM CO 7/1 20,- DM 
Interpreter Music-Language (6-64), Fi- 
relegion [C-64, Funktionstastenpra- 
grammierung (C-64), Schatziaucher 
(©-16), Dangerous Planet {VG-20), Geo- 
Zaxxar (NG-26) 


$shneider 
Bestell-Hr. COM $K 7/4 18,- DW 
Bestell-Nr, COM SB 7/1 39,- DM 


Etis, Alten-Hunter, Demon-Attack, Da- 
tenverwalteng, Biscshaw 


Haft 3/86 

Commodore 

Bestell-Nr. COM CK 3/2 18,- DM 
Hastelt-Nr. COM CD 3/2 20,- DM 


Minar-Jumper (C-16/116), Here 
{C-18/118), Data-Maker (C-16/116), Be- 
fehlserweiterung {6-69), S$tarchip 
(6-64), Mini-Lar-Race (6-64), Text- 
Scroller {6-64), Text-Editor {6-64), 
Ehecksummer. (YG-20), Roblo st Re- 
vonwreck (W6-20), Mini-Karate {VG-20), 
Autonumher-Routine {V6-20) 


Schneider 

Bestell-Nr. COM SK 3/2 
Bestell-Nr. COM SD 3/2 39,- DM 
Smily, Ssrepl, Die verrückte Fabrik, Disc- 


Help 

Hett 7/86 

Commodore 

Bestell-Nr. COM CK.7/2 16,- DM 
Bestell-Nr. COM CD 7/2 20,- DM 


V6-20-Sound-Demo, Mad Rush (VG-20), 
Shost-Hall (VC-20, Roadrunner (C-64), 
Basic Extension (C-64), Metooriten- 
sturm (6-64), Checksummer C-18/116, 
Birwolt (G-16/116), Break-But (C-16/116) 


Schneider 
Bestell-Nr. COM SK 7/2 16,- DM 
Bestell-Nr. COM SD 7/2 39,- DM 


Poker, Cavs-Walker, Disketlenarchiv 


16-0M 






Heit 8/65 


Commodore h 
Bastoll-Hr. COM CK 4/1 16,- DM 
Bestell-Hr, COM CO A/t 20,- DM 
Druckse-List [#6-20), Flowers II (VE-20), 









"Dan Euus (NC-20), Piano (6-18/116), 


Tank-Dusall (064), Vampir (664), Memary 
(6-84), Raster Hagistar, Interropt {G-B4). 


Schnelder 


Bostell-Kr. COM SK 4/1 16,- DM 
Bastell-Hr. COM SD 4/1 39,- DN 
Bopter Patrol, Suchrätsel, 

Tower 

Heft 12/65 

Commodore 

Bestell-Mr. COM CK 4/1 16,- DM 
Bnstoll-Nr. COM CB 4/1 20.- DM 


freggies Nightmare (W6-20), Wächter 
des keiligen Tempels (VC-20), Fumping 
Joe (6-16/116), City-Bunner {G-36/116), 
Mission Hescue IC-64), Turko-Jet 
(6-64), Print-Generatar [G-64), Datage- 


Schaelder 
Bestell-Nr. COM IK 8/1 16,- DM 
Bestell-Nr. COM SD 8/1 39,- DM 


Checksummer 1.0 .CPG, Twa Cherry 
Chaps, Erwin im Zauherschtoß, Druck- 
stesprang HL) 403 


Heit 4/88 

Cammadors 

Bestell-Nr. COM CK 4/2 16,- DM 
Bestell-Nr. GOM CD 4/2 20,- DM 


Shuttle (#C-20), Joset in den Höhlen 
{VG-20), Merge-Routine (VC-20), Shont it 
{UC-26), Fast Trust {C-64), Data-Text 64 
(6-64), Gary, dar schnelle Kabelvarleger 
(6-16/116}, SDI (6-16/116), Baep-Routine 
(6-16/116) 


Schneider 
Bestell-Nr. COM SK 4/2 16,- DM 
Bestell-Hr. COM SD 4/2 39,- DM 
$pace-Roscus, Textecitor, Starlight, 
Programm-Reiter 
Heft 8/86 
Gommodora 

. Bestell-Nr. COM CK 8/2" 16,- DM 
Bastell-Nr, COM CD 8/2 20,- DM 


Death Dosart (6-64), 3-D-Labyrinth (C- 
54), Klick (C-64), Bahnhof (UC-29), Ome- 
ga Attack (VC-20), Sound (96-20), Plati- 
nenlayout (C-18/116), Batioon Shout (16/. 
116), Hardcopy (C-18/116) 


Schneider 
Bestell-Nr. COM SK 8/2 16,- DM 
' Bestell-Nr. COM SD 8/2 38,- DM 





Aus diesem Heft: 


Commodore 
Schneider 


Bestell-Nr. COM SK 9/2 
Bestell-Nr. COM SD 92 


‘Alle hier aufgeführten Kassetten und Disketten können jederzeit 


nachbestelit werden. Bei den Zeitschriften sind die Ausgaben 6/85, 
7/85, 11/85, 2/86 leider vergriffen und können nicht mehr nach- 
geliefert werden. Bitte beachten Sie dies bei ihrer Bestellung. 


Sompubes mi 





Absender 
(Bitte deutlich schreiben} 
Preis BesteH-Nr. 


Bitte mit der G 
jeweils gültigen Kass./Disk. 


Postkartengebühr 























Antwortkarte freimachen 
Vorname/Name 
Flomecomputer-System F In = u „ Pd 
Straße/Nr. 10,—/ - 08 6/85 
N 
sr öR 1,— - US 6.1/85 
an 2—/ - US 8.2/85 
Tronic Verlag GmbH PR Pr 
Telefon Yorwahl/Rulnummer ABO-Service 4 15,--/25, 8 8/05 
Postfach 870 Kit  12=-/22-- US 9/85 
H 
I 081086 
D-3440 Eschwege 
Pascal) 16,--/25,-- US 1/86 
Br | By ze HC/SR-3 
a - NC/SR-4 
12,50/ - HC/SR-5 
17,50/26,59 HL/SR-& 
12,50/24,59 HG/SH-1-4 
& erg nn | era ® een ME Pac 
Reacter/Concentration/ Besteltschein/Glä 8.50/15-- v6 Dtti’s „Sonnd* 17,50/27,50 HE/SR-2-4 
Datenbank 17,50/23,50 RC/C-1 Multigraph/ält a ee Samson und die Kisten/ i 
eins of Death 14,560/19,50 H6C/G-2 Garten/Schloß Grusetstain 14,--/18,50 91 Mopn-Landiny/Panzer 17,50/26,50 HE/SR-4-4 
len-Destroyer/ Fressman/Qutisw 14,--/19,50 W101 Super-Minar 14,--/24,-- $n42 
Duoll 24,50/20,50 K6/G-3 Prost/Buffalo Bill 14,--/1950 Yızı CPC-Bort 14,--/24,-- 852 
Ocean Same/Tennis 17,50/23,50 H6G/G-4 Joy Man/Powernack 14,--/1850 V Conan’s Eastie 15,50/25,50 SN82 
The Caves 17,50/23,50 HE/C-5 Der rasende Malacher/ Snider's Mace 16,50/28,50 SA 72 
Sardener 17,50/23,50 HE/G-6 Frankie goes te Phacae 14,--/19,50 132 Schneider Panik/ 
Uto/Skatehoard sam 24,50/29,50 HL/G-1-4 Natron/Obst 14,--/19,50 va Prag . 18,50/28,50 SR 13 
Olym pic Biatblan/ i 14,--/10,50 1'777] orror-Lave 
Strugglo far Lite 24,50/20,50 MD/C-2-4 | Nürkure SnHnist 150 ve Midnight . 18.502,56 SR 23 
Pole Position/Save Breaker/Expulsion 14,--/1950 772 Cosmis-Castie/ 
your testh/Push 24,50/29,50 HE/C-3-4 | Brückenbau/.lango 16,--/21.50 713 use N 
Explorer 2/ Inks-Schatz/Miner raumlan ‚50/28, 
Programmname? 24,50/29,50 HG/G-4-4 der Fagsadenstreicher 16,--/21,50 #23 Mühle 12,50/24,50 HE/SR-5-4 
Mauern/Widerstand 9,-/15,-- 64 Baohy In Actien/ 
Spacs-Camets/ Bergshaoting 16,—/21,50 733 
Erdspalto/Sprite-Data 15,--/28,50 G51 Zyklo/Geldsammler 115% -  ACAI 
Autostart/Bestellschein/ Star-Wars/Punkteiresser 14,50/ - HC/N-2 
Roadpainter 1850/2358 C61 Eich ne Fan! N ) ft W 2 r A 
Hardcopy/Space-Fighter/ _ Mister Jump 1450/ - HE/Y-3 
Data-Generator 16,50/19,50 6 71 Ghost’s Eggs/Fox Hunt 1450/ = NE/AN-A 
Monstor-Attack/Binck- Collector/Break Out 1450/ -  HEN-5 = 
Painter/ Epson-Drucher ‚16,507: 23,50 681 0-Bert/Salvage Crew 16,50/ - HE/N-6 
Projekt/Datenbank 16,--/23,50 E01 Dog Fight/Schwitzbad 16,50/ -  HE/V-I-4 Ss e rV ] G e 
Spiders/The Basle 16.50/23,50 G 101 Earth Aescus 14,50/ - HEA-2-4 
High Noon/Skeat/ Tank 14,50/ - HC-V-3-4 
Brafik-Dasigner 17,50/23,50 6121 Terra 2/Pac-Balt 18,50/21,50 HC/V-4-8 . i 
NONE -BBERN Sprites/Space-Batte 13,--/10,-- UV 2/85 Der Tronic-Verlag bietet Spitzensoft- 
Editor 17,50/23,50 622 Bratik-Painter 10--/- W585 für Jed N 
Diok PAHpre RARNB InBnenEn E.AR Decelerator 9-/- W785 Überzeugen Sie sich von unseren An- 
Briettaubo/Gadelon 19,50/24,50 642 Joypalnt Id,n/ = uw 8/85 bot dbestellen Si hheut 
Ritter Erik/ : Disassamblor, geboten und bestellen oe noch Neule. 
Grand Prix Spritehliie 19,50/24,50 632 Did-Programme we j 
rabirdlieeiusie 2450/2058 682 . Er re an 2 in. Alle Bestellungen werden innerhalb 
Tran/Mercurious 24,50/2950 613 e 


1 Woche 


Interceptor-Bassl/ 


Ey wem || CO 16/T6/plus 4 


nach Eingang bearbeitet. 
2450/2950 633 


Telefonische Bestellungen unter der 


Die Festung/ S d h eft 

Tanksimulation 24,50/29,50 NG/G-5-4 Rufnummer 
Fight Night/Mansterjagd/ on . er 

Collossus Mühle 2450/2059 663 


erscheint am 15.9.86 05651/30011 
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Heft 5/85 


Commodore 
Bestell-Nr. GOM CK 1/1 18,- DM 
Bostell-Nr. G0M CD 1/1 20,- DM 
Sense (C-16/116), Jengle (6-64), Auto- 
start (6-64), Seqwenzer (C-64), Sufe 
(6-64), Olympia (NG-20), Flowers (UC-20) 


Schneider i 
Bostell-Nr. EDM sk 1 16,- 04 
Cobra, Krüml, Haunted Gastie, Q-Bert, 
ROM-CALLS 


Haft 9/85 

Commodere B 
Bestell-Nr. COM GK 3/1 10,- DM 
Bestoll-Nr. COM CD 5/1 20,- DM 


Supermoni 64 (6-64), Galaxy (C-84), At- 
lantis (6-64), Shaolin (6-18), Haspital 


(UC-20), Fiipper-Ball {#C-20), Alien 
(NC-20) 

Schneider 

Bestell-Nr. COM SK 5/t 18,- DM 
Bestell-Nr, COM SD 5/1 39,- DM 


Duell, Grash, Citylander, Klondike, HEM- 
Killer 


Halt 1/86 

Commodore 

Bestell-Nr. COM CK 1/2 16,- DM 
Bestell-Nr. COM CB 1/2 20,- 0M 


Checksummer 1.0 G, Astronaut Battle 
(6-84), Nueycabra (&-16/116), Hardcopy- 
routine (C-18/116), Heimut und die Zeit- 
maschine (G-18/116), Locas (VC-20), 
Rock'me (VC-20), Charly der Raketen- 
mann (VC-20), Interrupt-Programmie- 
rung [VG-20) 


Schneider 
Bestell-Nr. COM SK 1/2 16,- DM 
Bestell-Nr. COM SD 1/2 39,- DM 


Detender, Boulder Dash, Basic-Befehle 


auf den Funktionstasten 

Haft 5/86 

Commadore ö 
Bestell-Nr. COM CK 5/2 16,- DM 
Bestell-Nr. COM CD 5/2 28,- DM 


Space-Devil (6-64), Disk-Eddi (C-64), 
ABC-Legen (V-20), 3-D-Labyrinth (US- 
20), Tron (VG-20), Invaders of Space (6- 
16/116), Submarine (C-16/116), Balken- 
diagramm (C-18/115) 


Schneider $ 
‚Bestell-Nr. COM SK 5/2 16,- DM 
Bestell-Nr. COM SD 5/2 39,- DM 


Startank, Grafik-Nesigner, Cross-Refo- 
rence, Itont 








Bestellkarte 


Die Zustellung erfolgt: gegen Vorkasse [_] 


Software-Service 


oder per Nachnahme [|] 


+ Versandkosten 


Ausland: nur gegen Vorkasse 


innerhalb von 1 Woche 


Bitte liefern Sie mir: 
[] Kassette für 
[J Diskette für 


zum Preis von gesamt 


Entnehmen Sie bitte aus unserer Preisliste die notwendigen Angaben für Ihre Bestellung: 





Bestell-Nr. 


Bestell-Nr. 


[I] Anzahl 
[U Anzahl 


DM 





Name, VYoraame 





"wc: PLZ, Ort 


Car Bace (C-tW/ll6), Kay-Helper 


{C-38/118} 
Schneider 
Bestell-Nr. COM SK 0/1 
Bestall-Nr. COM SD 8/1 


16,- DM 
39,- NM 


Lahyrinth, Catch, Mini Car Race, Inka$o- 
‚gra, Single Disk Backup 


Nett 2/86 
Commodore 

Bestell-Nr. COM CK 2/2 18,- DM 
Bestall-Nr. COM CD 2/2 20,- DE 


Aaho (6-64), Basic-Betehlserwaiterung 
{G-64); Raketonstart (6-16/116), Drei- 
kampf (C-18/116), Headline (C-16/118}, 
Defander XC-20), Formel I (VE-20), Ma- 
mory-Display (WC-2D) 


Schnelder 
Bestell-Nr. COM SK 2/2 36,- DM 
' Bestell-Nr. COM SD 2/2 30,- DM 


Alien 2001, Diamond Hunter, Directory 


Heit 0/86 

Gommrdore 

Bestell-Nr. COM CH 6/2 16,- DM 
Bestelt-Nr. COM CR 6/2 20,- DM 


Music-Master (C-64), The little Puck 
goes home (C-64), ENNY (C-64), Invers- 
Wülity {6-16/110), Checksummer (C-16/ 


116}, Affenwurf (B-18/2116), Data-Maker 


WC-20), Karate-Kid (NG-20), G-Bert WC- 
20) 

Schaolder 
Bestell-Nr. COM SK 8/2 t6,- DM 
Bastelt-Hr. COM Su 6/2 30,- DM 
Disksort, Mint-Forth, Starcommand 


Aus diesem Heft: 


Commodore 
Schneider 


Bestell-Nr. COM SK 92 
Bestell-Nr. COM SD 92 


Straße, Nr.: 





Datum, Unterschrift 





Schaelder 

Bestell-Nr. COM SK 7/1 16,- DN 
Bosteti-Hr. GOM SD. 7/1 88,- DM 
Etis, Alten-Nunter, Demen-Attack, Da- 
tenverwalteng, Discshaw f 






Haft 3/86 

Commodore 

Bestell-Nr. COM CH 3/2 16,- OM 
Bastelt-Ar. GOM CD 3/2 28,- DM 


Ninar-Jumper (6-16/116), Hero 
(6-18/t16), Data-Maker (C-16/316), Be- 
ishlserweiterung (6-69, Starchlp 
(6-64), Mini-Car-Race (6-84), Text- 
Seroller (6-64), Text-Editor {6-84), 
Checksummer. WC-20}, Roblm ai Aa- 
venwreck (6-20), Mini-Karate {4C-20), 
Autanumkez-Auutine (WG-20) 

Schnelder 

Besteli-Nr. COM SK 3/2 16,- DM 
Bestell-Nr. COM SD 3/2 39,- DM 
Smily, Serapl, Dieverrückte Fahrik, Disc- 
Hein 


Heft 7/86 

Commodore 

Bestell-Nr. COM CK.7/2 16,- DW 
Bestell-Nr. COM CD 7/2 20,-DM 


Y6-20-Sound-Domo, Mad Aush (VC-20), 
Ghost-Hell (VC-20, Roadrunner (Ü-64), 
Basic Extension (C-64), Motsoriten- 
sturm (6-64), Checksummer G-18/116, 
Airwoit (6-16/116), Break-Out (C-16/116) 


Schneider 
Bestell-Nr. COM SK 7/2 16,- DM 
Bestell-Nr. COM SD 7/2 39,- DM 


Poker, Cavs-Walker, Diskettenarchiv 


nerater (6-54) 


Schaelder 
Bestell-Nr. GOM SK B/1 
Bestell-Nr, COM $0 8/1 


| Chocksummer 1.0 CPC, Twa Cherry 


Chaps, Erwia ka Zauherschioß, Oruck- 
stessrung HLQ 401 


Cemmedors 
Bosteli-Rr. COM CK 4/2 16,- DM 
Bestell-Nr. COM CD 4/2 20,- DM 


Shuttle [VG-20), Josst In den Höhlen 
{uG-20), Merge-Routize WG-20), Skastit 
[G-20), Fast Teust (6-64), Data-Text 64 
(6-64), Gary, dar schnelie Kabetverleger 
(C-16/116), 503 {6-18/116}, Beep-Routina 
(G-16/118) 


Schnelder 

Bestell-Nr. COM SK 4/2 16,- DM 
Bestell-Nr. G0M SD 4/2 39,- DM 
Spaca-Rescue, Texteriter, Starfight, 

:| Programm-Retter 

Heft 8/86 

Commsdare 

Bestell-Nr. COM CK 8/2 16,- DM 
Bestell-Nr. COM ED 8/2 20,- DM 


Death Desert (0-64), 3-D-Labyrinth (C- 
84), Klick (6-64), Bahnhof {NG-20), Ome- 
ga Attack (VC-20), Sound (VC-20), Plati- 
nenlayout (C-10/110), Baltoan Shot (18/. 
116), Hardcopy (6-18/116) 


Schneider 
Bestell-Nr. COM Sk 8/2 16,- DM 
Bestell-Nr. COM SD 8/2 39,- DM 





“Alte hier aufgeführten Kassetten und Disketten können jederzeit 


nachbestellt werden. Bei den Zeitschriften sind die Ausgaben 6/85, 
7/85, 11/85, 2/86 leider vergriffen und können nicht mehr nach- 
geliefert werden. Bitte beachten Sie dies bei Ihrer Bestellung. 





Compube mib 


| 


- 


Kombi-Abo „Compute mit“ 


Name/Vomame 


Straße/Nr. 


Ich wünsche folgendes ABO: 








PLZ/Ort 


[] 12 Exemplare „Compute mit...“ + 12 bespielte Kassetten 
zum Preis von 
[} Commodore 


129,50 DM (Ausland 142,50 DM) 


[[] Schneider 


[J 12 Exemplare „Compute mit...“ + 12 bespielte Disketten 
zum Preis von 209,50 DM (Commodore) 
[_| Commodore 


gegen 
[] Rechnung 


[_} Vorkasse 


[_} Bargeldlos durch Bankeinzug: 


- 286,50 DM (Schneider) 


[[] Schneider 


LJ 12 Exemplare „Compute mit..“ ohne bespielte Kassetten 
zum Preis von 


Abrufkarte 


42,- DM (Ausland 52,- DM) 





Datum, Unterschrift 





Bankleitzahl 





Geldinstitut 


Abonnement-Kündigaungen: r 
6 Wochen vor Ablauf des Jahresabonnements. Außerdem kann ich diese Bestellung innerhalb von 10 Tagen beim Verlag 
widerrufen! Zur Wahrung der Frist genügt die rechtzeitige Absendung des Widerrufes. 


Abo-Beginn ab Heft: 


-—g- Fr. 


Reactor/Concentration/ 
Datenbank 
Warlords/ 
oms of Usath 

en-Destroyer/ 
Dusli 
Ocsan Gamea/Tennis 
The Caves 
Bardaner 
Ufo/Skatoboard Sam 
Olympic Biathlan/ 
Struggle for Life 
Pole Position/Save 
yaur testh/Push 
Explorer 2/ 
Programmname? 
Mauern/Widerstand 

/ 

Erdspalte/Sprite-Data 
Autostart/Bestellschein/ 
Roadpainter 
Hardcopy/Space-Flahter/ 
Data-Generator 
Monster-Attack/Block- 
Painter/Epsoa-Drucker 
Projekt/Datenbank 
$pldors/The Basic 
High Noon/Skaet/ 
Grafik-Designer 
Paintor/Star-Baddle/ 


Editor 
Wöstenrally/Jat-Pac/ 
Black Moore Castle 
Brieftaubo/Cadelon 
Ritior Erik/ 

Grand Prix Spritohilfe 
Firobird/High Music 
Moonswaeper/Scatti 
Tron/Mercurious 
Interceptor-Basal/ 
Schotter 


‚Jump-Man/Space-Taxi/ 


The Way 

Die Festung/ 
Tanksimulation 

Fight Night/Mansterjagd/ 
Collossus Mühle 


17,50/23,59 
14,50/19,50 
24.50/28,50 
17,50/23,50 
17,50/23,50 
17,50/23,50 
24,50/29,50 
24,50/20,50 
24,50/29,50 


24,50/29,50 
8,--/15,-- 


15,--/23,50 
18,50/23,50 
15,50/19,50 
16,50/23,50 


"18,-—/23,50 


18,50/23,50 
17,50/23,50 
17,50/23,50 


17,50/23,50 
19,50/24,50 


19,50/24,50 
24,50/29,50 
24,50/29,50 
24,50/29,50 
24,50/29,50 
24,50/29,50 
24,50/29,59 


24,50/29,5@ 


H6/C-3 
HC/C-4 
HC/C-5 
HC/C-8 
RG/C-1-4 


HC/G-2-4 
HG/G-3-4 


HC/G-4-4 
ca 


651 


E77 


ci 
68 
69 
£c101 
6121 
622 


632 
642 


632 
662 
622 
cn 
623 
c33 
NG/G-5-4 


Konto-Nr. 





Datum. Unterschrift 
















Bestellschein/Glücky 8,50/15,-- 
Multigraph/All Rammer 11,--/15,50 
Zyklo/Kieteorit 11,--/18,50 
Sarten/Schloß Gruselstein 14,--/10,50 
Fressman/Outlaw 14,--/19,50 
Prast/Buffalo BIN 14,--/19,50 
Joy Man/Powerpsck 13,--/19,50 
Der rasenda Malocher/ 5 
Frankie gues to Pharao 14,--/19,50 
Matron/Obst 14,--/19,50 
Race On/Cagy 14,--/19,50 
Nürburg 30/Düsi 14,--/19,50 
Breaker/Expulsion 14,--/18,50 
Brückenhaz/Janga 16,--/21.50 
laks-$chatz/Miner 

| dar Fassadenstreicher 16,--/21,50 
Buoby In Action/ 
Bergshooting 16,--/21,50 
Zyklo/Geldsammlar 11,50/ - 
Star-Wars/Punktefresser 14,50/ - 
Catch the Fish/ 
Mister Jump 14,50/ - 
Ghosts Eggs/Fox Hunt 14,50/ = 
Collector/Break Out 14,50/ - 
Q-Bert/Salvage Crew 16,50/ - 
Dog Fight/Schwitzbad 16,50/ = 
Earth Rescue 14,50/ - 
Tank 14,50 - 
Terra 2/Pac-Ball 78,50/21,50 
Sprites/Space-Battie 13,--/10,-- 
Grafik-Painter 3 10,-./ - 
VIC-Glock g-/ - 
Decelerator 9--/ - 
Joypalnt 12--/ - 
Disassemblar, 
Okd-Programme 10,--/ - 
Directory/Fark-JAQ 10--/ - 
Men Rescue/Ecanony 14,50/ - 


G 16/116/plus 4 
Sonderheft 


erscheint am 15.9.86 





vr. 
vn 
var 
vs. 
vı101 
Wızt 
v22 


232 
va 
v52 
v8 
v72 
vı3 


433 
HG/U-T 
HC/V-2 


H6/U-3 
HC/N-4 
HC/-5 
HCAN-8 
HE/-I-8 
HE/-2-4 
NC-V-3-4 
HO/F-4-4 
UV 2/85 
uy 5/85 
UN 6/85 
UV 7/85 
UV 8/85 


8/85 
UV 10/85 
NE/V-5-4 


CSompute mib 


















Preis 
Kass./Disk. 





te 15,—/25,-- 
ı-Kit 12,—/22,-- 
FH 
{2le= 
Pascal] 15,—/25,-- 
er u» 
u/ » 
12,50/ - 
17,50/26,50 
12,50/24,50 
UUHEEHEGEEEREEN |; . 
Otti’s „Suund“* 17,50/27,50 
Samson und die Kistem/ 
Die verflixte 15 17,50/27,50 
Moon-Landing/Panzer 17,50/26,50 
Super-Minor 14,--/24,— 
CPC-Bert 14,--/24,-- 
Conan's Castla 15,50/23,50 
Snider’s Maco 18,50/26,50 
Schneider Paalk/ 
Killership 18,50/28,60 
Horror-Caves/ 
Midnight 18,50/28,50 
Cosmis-Castle/ 
Spider-Mace/ 
Traumland 18,50/28,50 
Mühle 12,50/24,50 


Bestell-Nr. 


US 3/85 
U8 4/85 


US 5/05 


48 8.1785 
u3 8.2/85 
u5 7/85 


US 8/85 
u3.9/85 


U3 10/85 


Us 1/88 

HC/SR-3 
NC/SR-A 
NG/SR-5 


HG/SR-& 
H6/SR-1-4 


HC/SR-2-4 


RE/SR-3-4 
HG/SR-A-4 
$n 42 
5n52 
SA 62 
SR 172 


5A 33 
HC/SR-5-4 


SJUNEId 





















service 


Der Tronic-Verlag bietet Spitzensoft- 
ware für Jedermann. 
Überzeugen Sie sich von unseren An- 
geboten und besteilen Sie noch heute. 
Alle Bestellungen werden innerhalb 


nur 


1 Woche 


nach Eingang bearbeitet. 
Telefonische Bestellungen unter der 
Rufnummer 


05651/3000 11 






























software: 





Halt 5/85 


Commedors 

Bestell-Nr. GOM CH 1/1 t8,- Dil 
Bestell-Nr. GOM CD 1/1 20,- DI 
Senso (C-14/110), dungte (6-64), Auto’ 
start (6-64), Senuenzer (0-64), Suf 
(C-84), Oiympia (UG-20), Flewars (NG-2 





Schneider: i 
Bestell-Nr. COM 8K 1/1 16,- DR 

| 
Cobra, Krümi, Haunted Castle, Q-Beri 
ROM-CALLS | 


Haft 9/85 

Commodore r 1 
Bestell-Nr. COM CK 5/1 18,- DH 
Bestell-Nr. COM CD 5/1 20,- DH 


Supermoni 84 (C-64), Galaxy (G-64), At 
lantis (6-64), Shaolin (G-16), Hospliai 
(vc-20), Fiipper-Ball (G-20), Allen 
{vc-20) | 


Schneider 
Bestell-Nr. COM SK 5/1 16,- DM 
Bestell-Nr. COM SD 5/1 39,- DM 


Duell, Crash, Citylander, Klordike, REM- 
Killer 


Haft 1/86 

Commodors 

Bestell-Nr. COM CK 1/2 16,- DM 
Bestell-Nr. COM CD 1/2 26,- DM 


Checksummer 1.0 6, Astronaut Battle 
(6-64), Hueycahıra (6-18/116), Nardcopy- 
routine (C-18/116), Helmut und die Zeit- 
maschine (C-18/116), Locos (VE-20), 
Rock'ms (VC-20), Charly der Raketen- 
mann [VE-20), Interrupt-Programmle- 
rung (VG-20) 


Schneider 
Bestell-Nr. COM SK 1/2 16,- DM 
Bestell-Nr. COM SD 1/2 39,- DM 


Gefonder, Boulder Dash, Basic-Befehle 


auf den Funktionstasten 

Nett 5/86 

Commodore 

Bestell-Nr. COM CK 5/2 18,- DM 
Sestell-Nr. C0M CD 5/2 20,- DM 


Space-Devii (C-64), Disk-Eddi (b-84), 
ABC-Legen (V-20), 3-D-Labyrinth (VC- 
20), Tron (VC-20), Invaders of Space {b- 
16/116), Submarine {G-16/116), Balkon- 


diagramm (C-16/116) 

Schneider : 
Bestell-Nr. COM SK 5/2 16,- DM 
Bestell-Nr. COM SD 5/2 39,- DM 


Startank, Gralik-Desiyner, Cross-Refe- 
rence, Itont 





Absender 
{Bitte deutlich schreiben) 























Bitte mit der 
jeweils gültigen 
Postkartengebühr 
Antwortkarte freimachen 
Vormame/Name 
Homecomputer-Systemn 
Straße/Nr. 
Zu Tronic-Verlag GmbH 
Telefon Vorwahl/Rufnummer ABO-Service 
Postfach 870 


wu rer ge rwrunijj ea TuTWweg@d 
{6-18/116) 
Schneider 
Bosteil-Nr. COM SK 8/1 16,- DM 
BesteH-Nr. COM 3D 8/1 39,- DM 


Labyrinth, Catch, Mini Car Race, Inka $u- 


gra, Single Disk Backup 
Heft 2/86 
Commodore 
‘Bestell-Nr. COM CK 3/2 18,- UM 
Bestell-Hr. COM CD 2/2 20,- DM 


Rohe (G-64}, Basic-Befehlserweiterung 
(C-54), Haketenstart £6-16/118], Drei- 
kampf (C-18/116}, Haadlins [C-16/116), 
Defender (VC-20), Formel 1 (VG-20), Me- 
mory-Display (G-20) 


Schneider 
Bestell-Nr. COM SK 2/2 18,- DM 
Bestell-Nr. COM SD 2/2 39,- DM 


Alien 2001, Diamend Hunter, Directory 


Heft 6/86 

Commodore 

Bestell-Rr. COM CK 6/2 16,- DM 
Bestell-Nr. COM CD 6/2 20,- DM 


Masic-Master (6-64), The littte Puck 
goes home (6-64), EDDY (6-84), Invers- 
Utility (6-16/116}, Checksummer (6-16/ 
116), Affenwurf (G-16/116), Date-Makar 
(G-20), Karsie-Kid (4C-20), Q-Bart (VC- 
26) 

Scheider \ 
Bestell-Nr. COM SK 8/2 t6,- DM 
Bestell-Nr. COM SD 8/2 39,- DM 
Disksort, Hint-Forth, Starcommand 


Aus diesem Heft: 


Commodore 
Schneider 





Bestell-Nr, COM SK 9/2 


D-3440 Eschwege 


$chnelder 
Bestell-Nr. COM SK 7/1 16,- DM 
Bestell-Nr. COM $D. 7/1 39,- DM 


Etis, Allen-Hunter, Bomon-Attack, Da- 


tenvorwaltung, Discahow 

Heft 3/06 

Commodoss 

Bostell-Kr. COM CK 3/2 18,- DM 
Bestell-Nr. COM CD 3/2 20,- DM 
Minor-Jumpar (C-16/116), Hare 


(C-16/116), Data-Maker (6-16/118), Bo- 
tehlserweiterung {6-64}, Starchin 
(6-84), Mini-Ear-Ruce 16-84), Texi- 
Seroller (6-64), Text-kditor (6-64), 
Checksummar (E-20), Robin et Ha- 
venwreck (NC-20), Mini-Karate {HC-20), 
Autanumber-Rostine (UC-20) 

Schneider 

Bestell-Nr. COM SK 3/2 16,- DM 
Bestell-Nr. COM SD 3/2 39,- IM 
Smily, Screpi, Dia verrückte Fahrik, Disc- 
Neip 


Hett 7/86 

Commodore 

Bestell-Nr. COM CK.7/2 16,- DM 
Bestell-Nr. COM CD 7/2 20,- DM 


VE-20-Sound-Demo, Mad Rush (VC-20), 
6host-Holl (VE-20, Roadrunnor (C-64), 
Basic Entension (C-64), Metsoriten- 
sturm (6-64), Chocksummer C-16/116, 
Airwalf [C-16/118), Broak-But (C-16/116) 


Schneider 

Bestell-Nr. COM $K 7/2 18,- DM 
Bestell-Nr, COM 8D 7/2 39,- DM 
Poker, Gave-Walker, Disketlenarchiv 


HETSTUr 6-04) 

Schnelder 

Bestell-Nr. COM $K 8/1 36,- DM 
Bestell-Nr. COM SD 8/1 39,- DM 


Chacksummer 1.0 CPE, Two Cherry 
Chaps, Erwin Im Zauberschloß, Druck- 
steuerung NLQ 401 


Heft 4/86 

Commodore 

Bestell-Nr. COM CK 4/2 16,- DM 
Bestell-Nr. COM CD 4/2 20,- DM 


Shuttle (WC-20), Josel Ip den Höhlen 
{VC-20), Merge-Routlas (VC-20), Shaat R 
(4G-29], Fast Trust (6-64), Data-Text 64 
(6-64), Gary, dar schnelle Kahalvarieger 
(C-16/116), SB4 {G-18/116), Besp-Rautina 
(C-16/116) 


$chnalder 
Bestell-Nr. COM SK 4/2 16,- DM 
Bestell-Nr, COM SD 4/2 39,- DM 
Space-Rescus, Textediter, Starlight, 
Programni-Ntetier 
Heft 8/86 
Commodore 

. Bestell-Nr. COM CK 8/2" 16,- DM 
Bestell-Nr. COM CD 8/2 20,- DM 


Dasth Desert (C-64), 3-D-Labyrinth (C- 
64), Klick (C-64), Bahrhat (HC-20), Ome- 
93 Attack (VC-20), $aund (UG-20}, Plati- 
nenlayout {6-96/116), Balleon Shoot (10/. 
116), Hardcapy (6-16/116) 


Schneider 
Bestell-Nr. COM SK 8/2 16,- DM 
Bestell-Nr. COM SD 8/2 39,- DM 





‘Alle hier aufgeführten Kassetten und Disketten können jederzeit 


nachbestellt werden. Bel den Zeitschriften sind die Ausgaben 6/85, 
7185, 11/85, 2/86 leider vergriffen und können nicht mehr nach- 


Bestell-Nr. COM SD %2 | geliefert werden. Bitte beachten Sie dies bei Ihrer Bestellung. 


Sompute mib 


software-service 


P Prei Bestell-Nr. Pro 
rogramm Rule a BerBiLN Heu in unserer uramm 


Cabal Software-Bestelliste der 
| E16 


Bestell-Nr. 


Preis 
Kass./DHsk. 








Autorennen In-/ - us 3/85 










Multi-Koy/S-Tag! 84/ 

Interrupt-Pragramme 18,--/21,-- UC 2/85 Univorsal-Datai v1 D--/ - u8 4/85 

Spritehilfe/Diskioader/ - Computerschrift/ 

Directory 21,--/ - U6 3.1/85 Programm Preis Bestell-Nr. | Symhal-Swag 10,--/ - U8 5/85 

Tape-Directory/Asmon/ Kass./Disk. Keyboard Teeikit/ 

Data-Gonerator 18,--/21,-- 16 3.2/85 Fantasy-Bauntry/ Farbdecodierung Ihr) » u8 6.1/85 

Fast Load 10,--/ - VE 4/84 Haerar-Castle 18,--/23,-- 023 Aladin Bm’ - US 6.2/85 

Biskmonitor/Zeichensatz 20,--/ - U6C 5/85 Mosa Fighter/Goldrausch 18,--/23,-- 033 Painter/Hox-Befehl t4,--/24,-- 18 7/85 

Roassembler/ Zeichondesigner 14--/- 10885 Maschinenspracho- 

Maskengenorator 15,--/20,-- UC 8/85 OLD-Aoutine-Merge- Monitor/Disk-Hilfe 15,--/25,— US 8/85 

Del 64/Treiberprogramm Routine/Change Type 14,--/18,-- 101/66 Basic, Maschinen-Kit 12,—/22,-- 59/85 

für 1526/MPS 802 Fragger/HKumor 4/2 043 Rackup/Directory/ 

Decelevator 14,--/10,-- 06 7/05 Eilinse/Nisk /21,-= 03 10/85 

Supertapedireetory/: Nata-Generatar/ 

Renew/Kortrollabfrage 15,--/ - UC 8/85 3 Grafik Toalkit/ 

Video-Vulities, 2 ASLN List (Turbo Pascal) 15,—/26,-- WS 1/86 

Multi-Basic 43, Bildediter 17,--/23,-- UC 9/85 Fallschirmspringer 9,—/ - BC/SR-3 

Better Basic/Autonumber/ Programm Preis Bestell-Nr, | Geisterschloß —/- NC/SR-A 

Hardcopy/Torminal- ' Kass./Disk. Zeichendesigner 12,50/ - NG/SR-5 

programm 17,--/23,-- UC 10/85 . — ‚Mini Car Race/ 

Speicher-Oszilloskop/ ”} rm Intercepior 3 D 17,50/26,50 H6/SR-6 

Makro-Assembhier/ | Socrat Agent 12,50/24,58 HG/SR-1-4 

Change Type 49,--/54,-- 11/86 - —. - en Pac/ re 

Reactor/Concentration/ estolks = e. 's „Soun 17, A „2- 

Datenbank 17,50/23,50 HC/C-1 aan Samson und die Kisten/ 

Warlards/ Zykto/ Metsorit 11,--/19,50 173] Die vorliixte 15 17,80/ 27,59 NC/SR-3-4 
arms ol Boath 1459/19,50 N6/G-2 Garten/Schloß Gruseistein 14,--/19,50 W91 . Maen-Ioniing/Fanzer N1:00/20,50 NE/EN-A-A 

Allon-Destroyer/ Fressman/Outlaw 14,--/19,50 Wii Super-Miner 14,--/24,-—- $N42 

Dusli 24,50/29,50 A6/C-3 Prost/Buffalo Bill 14,--/19,50 W121 CPG-Bert 14,—/24,-- 8$N152 

Ocsan Game/Tennis 17,50/23,50 HC/C-4 Joy Man/Fowerpack 14,--/19,50 422 Conan's Lasile 15,50/25,50 SR 82 

The Cavas 17,50/23,50 HC/C-5 Der rasends Malocher/ i Snider's Mace“ 16,50/26,50 SR 72 

Sardenor 17,50/23,50 NC/C-6 Frankie 9088 10 Pharao 14,--/1950 432 Schnalder Panik/ 

Uto/ShatohoardSam 24,50/29,50 HL/C-1-4 | Matren/Ohst 14-1950 a2 Kiliership 18,59/28,50 SA 13 

Olympic Binthlon/ Race On/Capy 14,--/198,50 v52 Horror-Laves/ 

Struggle for Life 24,50/29,50 HC/C-2-4 Nürburg 3D/Düsi 14,--/19,50 #82 Midalght 18,50/28,50 SN 23 

Paola Position/Save Breaker/Expulsion 14,--/19,50 772 Cosmis-Castie/ 

your teeth/Push 24,50/29,50 HO/C-3-4 Brückenbau/Janga 16,--/21,50 #13 Spider-Mace/ 

Explorer 2/ Inka-Schatz/Miner Traumland 18,50/28,50 SR 33 

Programmname? 24,50/29,50 HE/C-4-4 | derFassadsssirsichee 16,--/21,50 423 Mühle 12,50/24,50 HC/SR-5-4 

Mauern/Widerstand 8--/15,-- CA Baoby in Action/ 

here Borgshoatinu 16,--/21,50 433 

Erdspalte/Sprite-Data 15,--/2350 651 Zyklo/Geldsammier 11,507 - Her 

Autostart/ Bestelischein/ Star-Wars/Punktefresser 14,507 -  HD/I-Z 

Roadpainter 16,50/23,50 Ct Batch Ihe FiEh/ S 0 ftw a r e 

Hardcopy/ Spaca-Fiohter/ Mister Jump 1450/ -  HE/-3 

Data-Generator 1550/19,50 C 71 Ghosts Eggs/Fox Hunt 14,50/ -  HD/N-4 

Monster-Attack/Block- Gollector/Break Out 1450/ -  BCW-5 = 

Painter/Epson-Drucker 16,50/23,50 EC 81 Q-Bert/Salvage Crew 18,50/ - HL/V-8 

Projekt/Datenbank 16,--/2350 691 Dog Fight/Schwitzbad 16,50/ =»  HE/V-1-4 S e rV | 6 e 

Spiders/T! he Basic 16,50/ 23,50 6101 Earth Rescue 14,50/ - HC/Y-2-4 

High Noan/Skeer/ Tank 1450/ -  RCH-3-4 

Gralik-Designar 1750/2350 0121 Terra 2/Pac-Ball 16,50/21,50  HC/U-4-4 4 r N 

END SUN nee! Sprites/Space-Batle 1I3,--/19-- UN 2/85 Der Tronic-Verlag bietet Spitzensoft- 

ER. 17,50/23,60 622 Grafik-Palnter 1/-  WW5/86 für Jed 

Bi k can. : 17,50/23,50 €32 ee a9 nee Une N eh A 

ieh » van = UN7/B5 

Brioftaube/Cadelon 19,50/24,50 042 Te ul wem Überzeugen Sie sich von unseren An- 

Ritter Erik/ as ai Diesssembler, geboten undbestellen Sie noch heute. 

Grand Prix Spritehlife N 4 Old- -/- 985 i 

rebira/üignMusie 245072050 E62 - Aucr Lee In Alle Bestellungen werden innerhalb 

Moonsweeper/Scatti 24,50/29,50 672 Men Rescue/Econanuy  14,50/ - NC/Y-S-4 nur 

Tron/Mercurlous 24,50/28,50 613 - 

Interceptor-Basol/ 7 Woche 

Schotter 24,50/298,50 623 G 1 | 116 / | 4 E ; 

Jump-Man/Space-Taxi/ u D us nach Eingang bearbeitet. 

Din Festung? Eule Telefonische Bestellungen unter der 

Tanksimulstion 24,50/28,50 KC/G-3-4 Sonderheft Rufnummer. 

Fight Night/Monsterjagd/ { 

Collossus Mühle 24,50/28,50 663 


05651/30011 


erscheint am 15.9.86 
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| $prites- und I 
Pe | 
jetzt kinderleicht 
| wickelt, die sich ganz hervorra- 


programme 
| $ound- 
programmierung 
me e " ® Pi) | 
weten Die Ideale Programmierhilte 
fantastische Erweiterung ent- 
are für Spiele! |_C=64| 








- Alle Erweiterungen sind über 
SYS-Aufrufe erreichbar, Mit 
UMH entwickelte Programme 
bleiben daher voll Kompi- 
lierbar. 


- Ausgesprochen kurze Maschi- 
nenrouting, läßt sich daher 
leicht von eigenen Programmen 
nachladen 





\ N \ \ 


Hm 
N 
I; 


Soundhilfen. Hier wird kein REN 
N Ballast mit ainzuchlepgn = _ ) IN 
- Alle Routinen sind exzellent FE? 
j und schnell in der Ausführung TT 
RL, 
a “Im Fofgenden die Liste der SYS- GH /; N 
BEFEHLE! BE 


- UMH'beschränkt sich auf wirk- ” 
lich notwendige Sprite- und 





\r 





\ II MSN I \ 





SYS 49152, Rahmenfarbe, Hintergrundfarbe 
SYS 49249, Textfarbe (für den gesamten Screen) 








SYS 49417, Cursor-x-Pos., Cursor-y-Pos., Cursorfarbe SYS 49742, w.o. (Voice 2) 
SYS 49473, Zeichencode zu ersetzen, neuer Zeichencode SYS 49781, w.o. (Voice 3) 
| SYS 49538, Zeichencode, neue Farbe für alle Zeichen mit diesem Code A 49916, Hoch-Pass (0 o. 1), Band-Pass (0 0. 1), Tief-Pass (0 0. 1), LS 
0 bis 15) 
SYS 49444, Zeichencode (mit dem der Bildschirm aufgefüllt wird) 
SYS 49840, Resonanz (9 - 15), Voice 1 (0 0. 1), Voice 2.(0 o. 1), Voice 
SYS 49269, Lautstärke (0-15) 3(00.1) 


Ense Frequ.-Hi., Frequ.-Io., Pulse-Hi., Pulse-Lo, AD,SR, Wave- SYS 49820, Filterfrequenz (0 - 65536) 
orm (Voice 1 
SYS 49985, Sprite 1 - xpos, Sprite 1 - ypos, (....bis Sprite 8, jeweils 2 











SYS 49279, Frequ.-Hi., Frequ.-Lo., Pulse-Hi., Pulse-Lo, AD, SR, Wave Werte) 
| form (Voice 2) 
x SYS 50130, Farbe Sprite 1, ...., Farbe Sprite 8 
SYS 49348, Frequ.-Hi., Frequ.-Lo., Pulse-Hi., Pulse-Lo, AD, SR, Wave- 
form (Voice 3) 5YS 50203, Sprite-Def. 1,..,..., Sprite-Def. 8 
SYS 49603, Frequ-Hi., Frequ.-Lo., Waveform (Voice 1) SYS 50688, Multicolor-Auswahl für Sprites 
SYS 49636, Frequ.-Hi., Frequ.-Lo., Waveform (Voice 2) SYS 50698, Auswahl x-Spreizung, y-Spreizung 
SYS 49669, Frequ.-Hi;, Frequ.-Lo., Waveform (Voice 3) SYS 50655, Sprite-Multicolor-Farbe 1, und 2 


SYS 49702, Tonfrequenz (0-65536), Pulsweite (0 - 4096) (Voice 1) SYS 50674, Auswahl der angeschalteten Sprites 





| 





rare 


Er 


986 
\\ 


SYS 50479, Sprite 1 Def.-Anfang, Def.-Ende, Sprite 2 Def£.-Anfang, 
Def.-Ende, usw, 


Dieser Befehl ermöglicht es, ein Sprite ”intern” zu bewegen. Man 
muß eine Bewegungssequenz in aufeinanderfolgenden Blöcken ab- 
legen und für diese Bewegung Anfangs- und Endblock angeben. Die 
Spritepointer werden dann automatisch vom Interrupt erhöht und, 
wenn die Grenze erreicht ist, wiederholt. Hinweis: Zwischen dem 
Aus- und Einschalten des Interrupts muß man die Skpritedefinition 
auf den Anfang der Sequenz zurückstellen, da es sonst zu Koniplika- 
tionen kommen kann. 


SYS 50624 schaltet den Interrupt an 
SYS 50642 schaltet den Interrupt aus 


Die Vielzahl der Befehle bier bis ins Detail 





zu erklären, würde einen kompletten Peek | 


und Poke, oder Basic-Kurs erfordern. Wir 
gehen davon aus, daß unsere Leser sich 


über die einzelnen Bedeutungen der Werte 


im Commodorehandbuch informiert ha- 
ben oder werden. Die beste Erläuterung 
die wir an dieser Stelle geben können, ist 
das mitveröffentlichte Demonstrationspro- 
gramm. 


NONDUBUNMO 


REM#####4# PARAVISION COMPANY es 377 
REM#* FRESENTS: *“  <98> 
REM» THE GREAT *  <201> 
REM&_ men en “=  <S50> 
REM# - ULRICH MUEHL HELP SYSTEM -— * <234> 
REME 2 -------- nenn nn nn 06527 
REM#WRITTEN IN 17B4 BY: ULRICH MUEHL= 997 
REM#® COPYRIGHT 190% BY PARAVISION #  <94> 
REM*DR. BEUERMANNSTR- 23,3440 ESCHWEGE#*  <14> 
REMRRFRHHRT HN FH HH EHRT HE 202 > 

10 PRINT" SCLEARFREADINGISPACEIDATA, „u x99> 

20 FOR X=49152 TO 5071&:READ DT=:FOKE X,D 

T:NEXT X <218> 

32000 DATA32,253,174,32,159,183,142,32,2 

08,32,253,174,32,158,183,142,535, 208,96 <A40> 

327061 DATAS2,253,174,32,158,183,142,1,21 

2,32,253,174,32,158,183,142,0,212,32 <211> 

320072 DATA253,174,32,159,185,142,3,212,3 

2,253,174,32,158,185,142,2,212,32,253 «252> 

320035 DATAL74,32,158,193,142,5,212,32,25 

3,174,32,158,183,142,6,212,32,255,174 “223> 

32004 DATA32,158,183,167,0,141,4,212,142 

„4,212,96,32,253,174,32,158,193,154,2 <102> 

32005 DATA160,255,165,2,153,255, 215,153, 

254,218,153,2535,217,153,252,218,136,152 <252> 

32006 DATA208,238,96,32,255,174,32,158,1 

83,142,24,212,96,32,25%,174,32,158,183 “7 > 

32007 DATA142,8,212,32,253,174,32,158,18 

3,142,7,212,32,253,174,32,159,193,142 X233> 

32008 DATA10,212,32,253,174,32,158,183,1 

42,9,212,32,253,174,32,158,193,142,12 <214> 

32009 DATA212,32,253,174,32,158,103,142, 

13,212,32,253,174,52,150,183,169,0, 141. <97> 

32010 DATA11,212,142,11,212,96,32,253,17 

4,32,158,183,142,15,212,32,253,174,32 <244> 





Gompute miß 


programme 


"Wichtiger Hinweis: 
Die Rechte von UMH liegen ausschließlich 
beim Tronic-Verlag. Mit UMH entwickelte 
Programme sind nicht frei von Urheber- 
rechten und dürfen daher ausschließlich 
dem Tronic Verlag zur Veröffentlichung an- 
geboten werden. 


Autorenaufruf 


Programmentwicklungen mit UMH-SY- 


.STEM sind’ selbstverständlich erwünscht. 
Der Tronic-Verlag ruft alle C64 - Anwender 
auf, mit UMH entwickelte Pro me ein- 
zusenden. Die Vorteile liegen auf der Hand: 


« die Leser müssen UMH nur einmal abtip- 
pen und können es N Packs folgende Pro- 
gramm wieder verwenden ' 

- UMH bietet auch dem weniger erfahrenem 
Programmierer die Möglichkeit, raffinierte 
Effekte in seine Programme einzubauen. 


32011 DATA158,193,142,14,212,32,253,174, 


32,158,193,142,17,212,32,253,174,32,158 <95> 
32012 DATA183,142,16,212,32,253,174,532,1 
5B,183,192,19,212,32,253,174,32,158,1835 <145> 
320153 DATA142,20,212,32,253,174,32,158,1 
85,159,0,141,18,212,142,18,212,96,32 <B> 
32014 DATAZS3,174,32,158,103,134,211,32, 
253,174,32,159,195,142,214,0,32,253,174 2477 
32015 DATA3Z2,1598,183,142,134,2,96,32,253 
„174,32,158,183,134,2,160,255,165,2,155  <&> 
32016 DATA255,3,153,254,4,153,253,9,193, 
252,6,156,152,208,238,96,32,253,174,32 <a3> 
32017 DATA150,193,134,2,32,253,174,52,15 

8,183, 160,255,195,255,3,197,2,208,4,158 <195> 
32018 DATA153,255,3,185,254,4,197,2,208, 
4,138,153,254,4,185,253,5,197,2,209,4 <205> 
32019 Dnınt!SB,153,253,5,185,252,6,197,2, 
208,4.138,153,252,6,136,152,208,208,9& <145> 
32029 DATASZ,253,174,32,158,1093,154,2,32 
‚253,174,32,158, 103,160 ,255,185, 255,3 x145> 
32021 DATA197,2,208,4,138,153,255,215,18 
5,254,4,197,2,208,4,138,153,254,2154,185 <90> 
32022 DATA253,5,197,2,208,4,138,153,253, 
217,195,252,6,197,2,208,4,138,153,252 <37> 
32023 DATA219,136,152,200,208,76,52,253, 
174,32,159,185,142,1,212,32,253,174,32 <159> 
32024 DATA158,1893,192,0,212,32,253,174,3 
2,159,183,159,0,141,4,212,192,4,212,9& <182> 
32025 DATA32,253,174,32,158,183,142,9,21 
2,32,253,174,532,158,183,142,7,212,32 <B3> 
32026 DATA253,174,32,159,193,169,0,141,1 
1,212,142,11,212,96,52,253,174,32,158 <85> 
32027 DATA183,142,15,212,32,253,174,32,1 
59,193,142,14,212,32,253,174,32,158,185 <183> 


32028 DATA169,0,141,19,212,142,19,212,9& 


























programme 


„32,253,174,32,138,173,32,247,183,169 
32027 DATA20,141,0,212,165,21,141,1,212, 
32,253,174,32,138,173,32,247,183,234 
32030 DATA145,20,141,2,212,165,21,141,3, 
212,96,32,253,174,32,138,173,32,247,183 
32031 DATA165,20,141,7,212,165,21,141,8, 
212,32,253,174,32,138,173,32,247,183 
32032 DATA165,20,141,9,212,165,21,141,10 
„212,96,32,253,174,32,139,173,32,247 


'32033 DATA183,165,20,141,14,212,165,21,1 
.41,15,212,32,253,174,32,139,173,32,247 


32034 DATA183,165,20,141,16,212,165, 21,1 
41,17,212,96,32,253,174,32,138,173,32 
32035 DATA247,183,165,20,141,21,212,165, 
21,141,22,212,96,169,0,133,2,32,253,174 
320356 DATAS2,158,183,138,10,10,10,10,141 
„2,0,32,253,174,32,158,183,224,0,240 


32037 DATA7,165,2,24,105,1,13322,32,253, ' 


174,32,158,183,224,0,240,7,165,2,24,105 
32038 DATA2,133,2,32,253,174,32,158,195, 
224 ,0,240,7,16542,24 ,105,4,135,2,175 
32039 DATA2,0,141,23,212,95,169,0,135,2% 
32,253,174,32,158,183,224,0,240,7,165 
32040 DATA2,24,105,64,133,2,32,253,174,3 
2,158,183,224,0,240,7,165,2,24,105,32 
32041 DATA133,2,32,253,174,32,159,183,22 
4,0,240,7,165,2,24,105,16,133,2,32,253 
32042 DATA174,32,158,183,138,24,101,2,18 
1,24,212,96,32,253,174,32,158,183,142 
32043 DATAO,208,32,253,174,32,158,183,14 
2,1,208,32,253,174,32,158,183,142,2,208 
32044 DATA32,253,174,32,158,183,142,3,20 
9,32,253,174,32,158,183,142,4,200,32 
32045 DATA253,174,32,158,183,142,5,208,5 
2,253,174,32,158,183,142,6,208,32,253 
32044 DATA174,32,158,193,142,7,208,32,25 
3,174,32,158,183,142,8,208,32, 253,174 
32047 DATAS2,158,183,142,9,208,32,253,17 
4,32,159,183,142,10,208,32,253,174,32 
32048 DATA158,183,142,11,208,32,253,174, 
32,158, 183,142,12,208,32,253,174,32,158 
32049 DATA183,142,15,208,32,253,174,32,1 
58,183,142,14,209,32,253,174,32,158,185 
32050 DATA142,15,209,76,32,253,174,32,15 
8,183,142,39,208,32,253,174,32,158, 183 


‚32051 DATA142,40,208,32,253,174,32,159,1 


83,142,41,208,32,253,174,32,158,193,142 
32052 DATA42,208,32,253,174,32,158,183,1 
42,43,208,32,253,174,32,158,183,142,44 
32053 DATA208,32,253,174,32,158, 183,142, 
45,208,32,253,174,32,158,195,142,46,208 
32054 DATA96,32,255,174,32,158,185,142,2 
48,7,32,253,174,32,158,183,142,249,7 
32055 DATA32,253,174,32,158,183,142,250, 
7,32,255,174,32,158,183,142,251,7,32 
32056 DATA253,174,32,159,193,142,252,7,3 
2,253,174,32,158,183,142,253,7,32,253 
2057 DATA174,32,158,103,142,254,7,32,25 
3,174 ‚32, 15®,183,142,255,7,96,162,16 
32058 DATA189,255,207,24,125,255,1997,157 
‚255,207,202,130,208,242,206 , 255,197 
32059 DATA173,255,197,208,31,169,5,141,2 
55,197,162,8,189,247,7,221 ,15,197,208 
32060 DATA9,189,255,198,157,247,7,76,151 
„196,254,247,7,202, 138,208, 232, 76,49 
32061 DATAZS4,32,253,174,32,130,183,142, 
0,200,32,253,174,32,158,193,142, 1,200 
32062 DATA32,253,174,32,158,183,142,2,20 
0,32,253,174,32,198,183,142,3,200,32 
32043 DATA253,174,32,158,183,142,4,200,3 
2,253,174,32,158,193,142,5,200,32,255 


32064 DATAL74,32,158,183,142,6,200,32,25: 


3,174,32,158,185,142,7,200,32,255,174 


= 


GSompute mib 


<192> 
194> 
x192> 
x149> 
<i0> 
<IA> 
<1&62> 
%2977 
<16? 
<29> 
«577 
247 
<142> 
s65> 
«110> 
«2377 
<B> 
<1> 
<sa> 
<205> 
<204> 
<244> 
<19> 
«7A> 
«357 
<149> 
2277 
<877 
<92> 
x1377 
<178> 
97? 
x251> 
<158> 


<1947 


<241> | 


<114> 


32045 DATAZ2,158,1893,142,8,200,32,253,17 
4,32,158,193,142,9,200,32,253,174,32 <ABr 
32066 DATA15B,183,142,10,200,32,253,174, 


32,158,183,142,11,200,32,253,174,32,158 <103> 
32067 DATA183,142,12,200,32,253,174,32,1 
58,183,142,13,200,32,253,174,32,158,183 <215> 
32068 DATA142,14,200,32,253,174,32,158,1 
83,142,15,200,96,32,253,174,32, 158,183 <74> 
32067 DATA142,0,199,32,253,174,32,158,18 
3,142,16,199,32,253,174,32,158,183,142 <237> 
32070 DATA1,199,32,253,174,32,159,1893,14 
2,17,199,32,253,174,32,158,183,142,2 <51> 
32071 DATA199,52,253,174,32,158,183,142, 
18,199,32,253,174,32, 158, 183,142,3,199 <128> 
32072 DATAS2,253,174,32,158,183,142,19,1 
99,32,253,174,32,158,183,142,4,199,32 «713 
32073 NATA253,174,32,158,183,142,20,197, 
32,253,174,32,158,183,142,5,199, 32,253 <240> 
32074 DATA174,32,158,183,142,21,199,32,2 
53,174,352,158,183,142,6,199,32,253,174 <177> 
32075 DATA32,158,193,142,22,199,32,253,1 
74,32,158,183,142,7,199,32,253,174,32 <136> 
32076 DATA158,183,142,23,199,96,120,167, 

100, 141,20,3,169,196,141,21,3,169,5,1412 433 


32077 DATA255,197,88,76,120,169,49,141,2 
0,3,169,234,141,21,3,80,96,32,253,174 <5> 
32078 DATA32,159,183,142,37,20B,32,253,1 


74,32,158,103,142,38,208,96,32,253,174 <142> 
32079 DATA32,158,183,142,21,208,96,44,50 
„53,49,32,253,174,32,158,185,142,28,208 <240> 
32080 DATA9&,32,253,174,32,1598,183,142,2 
9,209,32,253,174,32,158,183,142,23,200 <ä&> 
32081 DATAI& <101> 


ENDE DES LISTINGS 


113,00) 


HAUPTPROGRAMM 





O REM x#### UMHSYS DEMG — LOADER Rus 248 
1 PRINT"{CLEAR YELLON RIGHT2IPARAVISIONT 
SPACE >CONPANYTSPACE+PROUDLYTSPACEIPRESEN 
T5: *rRAS=CHR$ (34) 

2 PRINTTAB (13) "{GREEHFULRICHTSPALEINLEHL 
’g" 1977 
3 PRINTTAB(TFY"IDOHN RED SPACEFSIUTSPACE2} 
MISPAGEZFHISPACEISI-TSPACEZFSVSCSPACEIDEM z 

0° <59> 
4 PRINT" {HHITEFLOADING. » » {BLACK DOWN2Y": ü 








POKE 53281 ,0:POKE 53280,0 <121> 
5 PRINT"LOAD"AS" VE" AS" „B" <215> 
& PRINT" CDOHNAFRUN" <13> 
7 PRINT*{DOHN2ILOAD"AS"SPRITESET"AF",G" <217> 
8 PRINT" {DEHN4> RUN" <15> 


9 PRINT" {HP1T}":FOKE631 ,15: POKE632, 13: PD 
KE633,131 PDKESS4,15 “77 
10 POKE 199,4 1aR> 
ENDE DES LISTINGS 
EDRUCK:F.B.1 


Demo Teil 2 


© REM VEKTOREN AENDERN = BASIC-START 2236> 

1 POKE16385,0sPÜKE 16386,0:POKE43,2: POKE 

44 ‚64: NEW <211> 
ENDE DES LISTINGS 


= 10043 DATA 25, 128, 24, 25, 128, 24, 12 
Demo Teil 3 254, 48 re er: 
10044 DATA 12, 124, 48, 12, 0, 48, &; 0, 





1 FÜR X=2048 TO 2495:READ DT:POKE X,DT: ss z 
ERT. KEPRINTUTGLEARS“ %,DT:N rn a DATA 3, 195, 192, 1, 255; 128, 0, 
2 AS=CHRF (34) <107> | 10044 DATA Q, 0, 0, 0, 0, 0 es 
3 PRINT" {DOHN2>LOAD" A$"DENONSTRATION" AS" 2 ee 2 a 
2 mi j <73> 
Thun =. ee DATA 0, 30, 0, 0, 255, 192, 1, 225 
5 PRINT" CHOHEF":POKE 631,13IFOKE 632,13: i Ba 
POKE 633,13: POKE 199,3 i eizs a0082 ra a 
19000 DATA 0, 120, Q, 5, 255, 0, 7, 135, 192, 12 a 
Ä ’ <186> 
«2227 
10001 DATA 12, 0, 192, 24, 0, 96, 24, 12 ae Bez re Bene ae 
4, 96 <246> . Sn 
0054 DATA 6, 62, 24, & 24 : 
10002 DATA 24, 254, 96, 49, 128 : a a ana u a 
v D ‚ D „48, 47, ae: I0onn DATA 1, 225, 224, 0, 255, 192, 0, 
10003 DATA 49, 128, 48, 47, 120, 48, 24 h ar 
10004 DATA 24, 124, 96, 24 = 
92 D v » ‚0, 96, 12, 0 ao DATA 0, 0, 0, 0, 66, 65, 67, 75, 7 
10005 DATA 7, 135, 128, 3, 255 ve 
2% s ‚ Pe 7) „0, 0, 12 a a an 82, 79, B5S, 78, 196, &6, 79, 
10006 DATA 0, 0, 0, 0, 0, 0, 0, © H - 
er nn , 0,09 a a 69, 210, HB, 73, 210, 68, 73, 
10010 DATA O0, 240, 0, 7, 2 H Eee er 
° r ‚0, 7, 254, 0, 15, 15, a Fe 70, 73, 76, 204, 75, 69, 217, 
10011 DATA 24, 1, 128, 48, 0, 192 H er 
rien ‚is D „0, ‚48, 1 nn Dr DIR 92, 67, 76, 197, 80, 82, 79, 
10012 DATA 48, 254, 192, 97, 128, 94, 97 4 ” 
a ‚ ’ 975 „96, Ei Io DAR 68, 85, 82, 197, &8, 79, 212, 
10013 DATA 97, 128, 94, 97, 128, 96 £ > 
1 » v ‚ ö) D) ‚ 28, Zu en 78, 196, 67, 72, 65, 78, 71, 
19023 DATA a8, 124, 192, 48, 0, 192, 24, | 10067 DATA 0 a 
. j <87> 2 
10015 DATA 15, 15, 0, 7, 254, 0, 0, 240, ne 
<188> » 
10016 DATA 0, 6, O0, 0, 0, 0, 0, 0, O9 <106> Demo Teil 4 
10047 DATA © f <a3> 
10020 DATA 0, 120, 0, 3, 255, 0, 7, 135, 6 PRINT"{CLEAR}" 30% 
128 <242> | 1 REM <144> 
10021 DATA 12, O0, 192, 24, 0, 96, 24, &2 2 REM INITIALISIERUNG <178> 
. 9a ö <253> | 3 REM ö <144> 
De DATA 24, 127, 96, 48, 192, 40, AB, 4 SC=49152:REM SYS SC „RAHMEN ,HIRTERGR. <4> 
B <161> | 5 TC=49240:REM SYS TC,TEXTFARBE 
ee SH 48, 192, 49, 48, 192, 48, 24, & LS=49249:REM SYS LS „VOLUME a 
2 <&2> | 7 V1=491741rREM STIMME 1,2 UND 3 <B> 
1m DATA 24, 62, 96, 24, 0, 9%, 12, 0, 8 V2=492794 REM SYNTAX: Fi 
<18> | 7 Vv3=49548ı1REM SYS V 
A DATA 7, 135, 128, 3, 255, 0, 0, 12 WAVE a a <40> 
: <107> | 10 CU=49417:REM 8Y5 CU,X,Y,FA (CURSOR) 
10026 UATA 0, 0, 0, 0, 0, 0, 4, 0, © <it6> | 11 ZE=49444: REM SYS ZE.CH er ee 
10027 DATA 0 253> | 12 EX=49475: REM SYS EX,Z1,22 (EXCANGE) <14> 
us DATA 0, 120, 0, 3, 255, 0, 7, 135, 13 CE=4953Bı REM 5YS CE,Z1,FA {CHREOLORI <246> 
“232% j4 SI=494A03:REM STIMME 1,2 UND 5 
19051 DATA 12, 0, 192, 24, 0, 96, 24, 12 15 S2=49656:REM SYNTAX: a 
Pr <720> 1& 53=-49&69:REM SYS SX,HI ‚„1.0,WAV! 
me2% DATA 24, 254, 96, 49, 128, 48, 49, 17 Ei=4970Z: REM STIMME 1,2 UND = Bun 
vos „48 2179> 18 E2=497742: REM SYNTAX 627 
Er En 47, 128, 49, 49, 128, 48, 24, 17 ES3=49781:REM SYS EX,TONPRM. „PULSFR. <201> 
. <100> | 20 FF=49820:REM SYS FF,F 
en DATA 24, 124, 96, 24, 0, 9%, 12, 0 21 FA=49840:REM SYS FA,RESO ln se co 
y <70> 22 FW=49914:REM SYS F 
ss DATA 7, 135, 128, 3, 255, 0, 0, 12 23 Sk=49985:REM SYS N naye ne 
4 <117> | 24 SF=50130:REM SYS SF,FAl Dan } 
100364 DATA 0, 0, 0, 0, 0, 0, 9, 0, 0 <126> | 25 5M=50334:REM 8Y5 SM,x1 was, an 
10037 DATA © ass | 26 SD=S0479:REM SYS SD,Al,E1,... ‚AB,ER 211> 
29090 DATA 0, &0, 0, 1, 255, 128, 3, 195 27 AC=S0OS24:1REM SY5 AC INTERRUPT AN <151> 
x <33> 28 DE=-50442:REM SYS DE INTER 
ar DATA 6, 0, 96, 12, 0, 48, 12, 124, 27 50=50674:REM SYS 50,X Er N 
<71> 30 MC=50455:ıREM SYS MC, 
10042 BarA 12, 254, 48, 25, 128, 24, 25, 31 MO=50488: REM SYS ee a 
2 <160> | 32 XY=50698:REM SYS XY,X,Y tSPREIZUNG) <191> 
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programme 


33 5P=50203:REN 5YS SP ,P1,P2,..,P8 
38 SYS L5,15:5Y5 SC,5,5 

37 895 V1,1,1,1,0,157,200,68. 

40 5Y5 V2,1,1,1,0,159,200,65. 

50 SYS V3,1,1,1,0,159,200,65 

60 FOR %=0 TO 1100.STEP 10 

70 SYS E1,X#3,256 

a0 SYS E2,X#2,255 

90 SYS ES,X,254 

100 NEXT X 

110 FOR X=256 TO 1 STEP -1 

120 SYS E1,3300,X 

150 SYS E2,2200,X 

140 SYS E3,1100,X 

150 NEXT X 

i40 PRINT" {YELLOW RIGHTEYPARAVISIONTSPAC 
E}COMPANYESPALCEHRPRESENTS:" 

179 FOR X=1 TO 100 

180 SYS £1,3300,X 

190 SYS E2,2200,X 

200 SYS ES,1100,X 

210 NEXT X 

220 PRINT“ CDOHNZ3 RIGHTISITHETSPACEHGREAT 








250 FOR X=100 TG 1 STEPr -1 
240 SYS E1,3300,X 
250 SYS EZ,2200,X 
260 SYS ES,1100,X 
270 NEXT X N 
275 PRINT"{BLACK RIGHT4 DOWN —— — 
[m 71 

280 PRINT" {RIGHT43 |- TSPACEZI + TSPAC 
Er, CSPACEDI eo H—n TSPAGEZI — |" 

230 PRINT*CRIGHT43 | | TSPACE23 | [SPACEF T{SP 
ACE} | TSPAGEI TTISPACEI FI TSPALE — IT 
SPACEI — I" 

300 PRINT"£RIGHTE} S— ISPACEI-HISPACEI HT 
SPACEI — {SPACEZY {SPACE} —I— {5SPACE2}Y 
Zi 

310 PRINT" {RIGHTEA+LT—— —— — —— 
re Te} 

320 FOR X=0 TO 250 

330 SYS E1,X+3300,%X 

340 SYS E2,X+2200,X 

350 5Y8 E3,X+1100,X 

3600 NEXT X 

3516 PRINT"{WHITE DOWNZ2 RIGHTSIWRITTENTS 
PACE>INLSPACEI1FBS [SPACEIBYTSPACEFULRICH 
{SPACE}MUEHL" 

3615 SYS V1,1,1,1,0,159,200,21 

3520 FOR X=250 TO © STEP -5 

3630 SYS E1,3550,X 

364g 5Y5 E2,2450,X 

3650 SYS E3,1350,X 

3660 NEXT .X 
3645 5YS VY1,1,1, 
Sb&6 SYS V2,i,1, 
3667 SYS V5,1,1, 
3570 FOR X=4250 
3480 SYS E1,X,0 
‚3690 SYS E2y4X,0 
5700 SYS E3,X,O 
3710 NEXT X e 
3715 PRINT"{GREEN DOWNZ RIGHTEFPRESSTSPA 
CEISPACEBARTSPACE?TULISPACEIGOTSPAGEFON” 
3720 SYS TC,15:605UB 4000 

37320 848 TC,12:G0SUB 4000 

3740 8Y5 TC,11:GDSUB 4000 

3750 SYS TC,0:60SUB: 4000 

3760 SYS TC,11:G0S1UB 4000 

3770 SYS TC,12:3G0SUB 4000 

3700 SYS TC,15:60SUB 4000 

3790 SYS TC,1:60SUB 4009 














0,159,200,21 
0,159,200,21 
0,159,200,19 


1, 
1, 
1, 
TO 0 STEP -5 





<126> 
<201> 
337 
<377 
“50? 
<25> 
<927 
<979> 
z119> 
<150> 
$136> 
2247 
<226> 
2287 
$200> 


<200> 
“2233 
<28> 
x30> 
327 
<4> 


“9> 
<191> 
“9897 
<9F0> 
<93> 
55? 


<597> 


<40> 


<117> 


<207> 


<1> 
<135> 
<251> 
<249> 
<247> 
<B0> 


<71> 

<123> 
<76> 

<211> 
x213> 
<215> 
2140> 
<173> 


<177>. 


<90> 
<b6> 
<233> 
<246> 
“3> 
<190> 


<189> 
x1358> 
<130> 
<134> 
<218> 
“1545 
<170> 


<178> . 


“77 


3800 GET A$:IF A$S<>"iSPACEI” TREN 3720 
5810 SYS SC,13,13:5YS TC,15:G0SUB 4000 


3820 SvS SC,7,7:5Y5 TC,12:G0SUB 4000 


3830 SYS SC,1,1:5Y5 TC,11:605UB 4000 
3840 SYS 56,15,15:5Y5 TC,0:605UB 4000 
3850 SYS SC,12,12:50SUB 4000 


"3860 SYS SC,„11,11:G05UB 4000 


3870 5Y5 SC,0,0:G05UB 4000 

39997 GOTO- 4010 

43000 FOR WT=0 TO 50:NEXT WT:RETURN 

4010 SYS SK,100,0,120,0,130,0,160,0,180, 

0,200,0,220,0,240,0 

4020 SYS 5P,33,33,33,33,33,33,35,33 

4030 5YS 5D,32,37,352,37,32,37,32,37 ,32,3 

7,32,37,32,37,352,37 

4040 SYS 5M,0,1,0,1,0,1,0,1,0,1,0,1,0z1, 

0,1 

4050 5Y5 50,255:5Y5 MG,0:SYS XY,0,0:5Y5 

AC 

4060 FOR WH=0 TD 20 

4070 SYS SF,11,11,11,11,11,11,11,11:60SU 

B 10000 

4090 SYS SF,12,12,12,12,12,12,12,12:605U 

B 10000 

4090 SYS SF,15,15,415,15,15,15,15, 15:G60SU 

B 10000 

4100 SYS SF,1,1,15,1,1,1,1,12605SUB 10000 

4110 NEXT WH 

4120 SYS DE:SYS SM,0,129,0,127,0,129,0,1 

27,0,129,0,129,0,1297,0,129 

4130 SYS 5F,13,5,14,6,10,2,7,9 

4135 SYS 5P,33,33,33,33,33,33,33,33 

4140 SYS SC,0,15:5YS AC 

4150 PRINT"ICLEARY" 

4160 595 EX,32,122:5Y5 TC,11 

4170 FOR WH=0 TO 19 

4180 SYS EX,122,76:G0SUB 10000 

4190 SYS EX,76,79:G0SUB 10006 

4200 SYS EX,79,80:G05UB 10000 

4210 5Y5 EX,„80,122:605UB 10000 

4220 NEXT WH 

4230 -5Y5 DE:SSYS SM,„A,1,3,2,2,3,1,4,255,4 

‚254,3,253,5,252,1 

4240 SYS 5K,100,70,120,79,140,70,160,70, 

190,70,200,70,220,70,240,70 

4250 syS AC 

4260 5Y5 5C,0,0 

4270 FOR X=0 TO 250: PL=INT t10004RND (1) 

1024:POKE PL,1&0:SYS CE,160,X:NEXT X 

4280 U=W+1: IF W=10 THEN W=2 

4299 SYS CE,180,4:60T0 4280 

99797 END 

10000 FOR WT=0 TO 30:NEXT WT=RETURN 
ENDE DES LISTINGS 


Hinweis: 
Das Hauptprogramm lädt die 
eigentlichen Demoprogramme 
nach und startet es automatisch! 


Die Demos veranschaulichen 
hervorragend die tollen Effekte 
des UMH-Systems! 
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<129> 
«199> 
<125> 
<49> 
26> 
245 
<19> 
<191> 
<2277 
<222> 


<221> 
<2351> 


4377 
A23543 


<?8> 
“Ia> 


<106> 
“2495 


<142> 
897 
<358> 


<200> 
<s68> 
“91> 
21? 
<100> 
<134> 
<200> 
<101> 
<17> 
<228> 
677 
“1AB> 


<3Ir 


<10> 
<147> 
<185> 


<1037 
437 
<110> 
<ı1d2> 
<88> 














"Compute mit” 7/88, Speichererwal- 
terung 

Sehr geehrte "Compute mit"Redaktion, 
ich finde die Informations und Pro- 
grammauswtiahl Ihrer Zeitschrift (Sonder- 
heft und Monatsausgabe} sehr gut. Bei 
der Verschiedenheit des Angebotes dürf- 
te es nicht schwer fallen, für jeden per- 
sönlichen Geschmack das richtige zu fin- 
den. Da aber die Speichererweiterung 
des C 16, auf 64 KB, so stark im Kom- 
men ist, sollte man überlegen, ab man 
für diesen Speicherplatz , der ja Immer- 
hin den des G 64 um 21 KB übersteigt, 
auch die passenden Programme auf 
den Markt bringen sollte. Sei es nun als 
abzutippende Listings oder ladefertige 
Software spezieller Hersteller. Wia auch 
ich, werden alle Besitzer des großen © 
16 so denken. Ich würde ein zukunft- 
orientiertes Denken in diese Richtung 
als iohnenswert ansehen. 


Redaktion: 

Seibstverständlich sind wir bemüht, ent- 
sprechende Software zu veröffentlichen. 
Aber gute Programme schreiben sich 
nicht an einem Tag! Das gilt für unsere 
Programmierabteilung (die sowieso total 
überlastet ist) wie auch für die Program- 
mierer unter unseren Lesern. Weralier- 
dings schon Software für die 64K- 
Version von C-16/116 oder plus 4 ge- 
schrieben hat, sollte nicht Zögern, sie 
zur Veröffentlichung anzubieten. Die 
Autorenhonorare des Fronicverlags kön- 
nen sich wirklich sehen lassen. Außer- 
dem winken noch 200,- DM extra für die 
5 besten 64K-Programme und tolle Prei- 
se für dan Softwarechampion des Jah- 
res beim Tronicveriag.{uk) 


"Gompute mit” 7186, Speichererwei- 
terung 


Meinen Gummicomputer G 116 habe 
ich nach der Umbauanieitung in Heft 


788 der "Compute mit", auf 60071 KBy- 
tes umgebaut. Der Umbau hat auf Anı- 
tiieb funktioniert. Ein Kompliment arı Mi- 
chael Lausch, Num habe ich aber etwas 
merkwürdiges festgestellt. Ich habe 2 
Computer in ainsm. Ich kann nun, nach- 
dem ich ein Programm im 12 KByte- 
Bereich geladen habe, den Computer 
auf 60 KByte umschalten und ein zwei- 
tes Programm laden. Danach karın ich 


‚jeweils das gewünschte Programm star- 


ten. Um dies zu erreichen, muB ich fol- 
gende Manipulation eingeben: 


1. Programm normal laden, im 12 
KByte-Bereich 


2. AUN/STOP-Taste gedrückt festhalten 
und Schalter auf 60 KByte-Beraich um- 
schalten. 


9. RESET drücken (RUN/STOP-Taste 
bleibt gedrückt), X-eintragen und RET 
drücken 


4. Das 2. Programm nun in diesen Be- 
reich normal !aden. 


5, Starten des Programmes mit RUN 


Umschalten von einem Programm zum 
anderen: 


1. AUN/STOP-Taste drücken und fost- " 


halten. 


2, Schalter von 12 KByte auf 60 Käyte 
oder umgakehrt verschieben. 


3. RESET-Knopf drücken 


4, RUN/STOP-Taste Ioslassen, X- 
eintragen und PET drücken. 


5. Das geladene Programm kant mit 
AUN gestartet werden, 


Können Sie mir bitte erklären, wie das 
möglich ist ? 


*** Leser- und Meckerecke * * * 


Redaktion: 

Das können 'wir so auf Anhieb leider 
nicht. Natürlich istes so, das wir je nach 
Schalterstellung einen anderen Basic- 
start haben und daher auch zu erklären 
ist, daß zwei verschiedene Programme 
im Speicher Platz haben. Wieso Ihre an- 
gegebenen Bedienungsiolgen dieses 
Phänomen zu Tags bringen, ist uns 
nicht klar. Vielleicht können unsere le- 
ser da elne Erklärung finden. 


"Compute mit" 7/86 Speichererweite- 
rung 
Sehr geehrta Damen und Herren, 


nachdem ich ihr lotztes Heft 7/86 ge- 
kauft hatte, habe ich mir sogleich bei der 
Fa. Richter in Wiesbaden die Bauteile 
für aie Speichererweiterung bestellt. 
Diese kostem Übrigens komplett, also 
tC-Sookel, Schalter, etwas Kabel und 
die beiden Speicherelemente, nicht wie 
von Ihnen angegeben unter 50 DM, sorı- 
dern exakt 69 DM. Hinzu kommen noch 
die Kosten für Porto und Verpackung, 
sofern man die Teile nicht dort im Laden 
kaufen kann, Alles zusammen kostet al- 
so auf dem Postweg genau 82 DM, 
Beim Einbau der Bauteile in meinen C 
16 habe Ich jedoch den Fehler gemacht, 
die Verbindung von Pin 14 zu Pin 16 am 
U8 - Schaitkreis dort zu unterbrechen, 
wo Sie dies eingezeichnet haben. Der 
Rechner lief daraufhin nur in der 12 Käy- 
ta - Schalterstellung. Beim Umschalten 
auf 64 KByte befand ich mich plötzlich 
im Monitor, aus dem der Rechner nicht 
mehr herauskam, sondern nur wirre Zei- 
char auf dem Monitor fabrizierte. 


Redaktlorı: 

Sehr viele haben sich bei uns gemeldet 
und sich über den Preis beschwert. Zum 
Zeitpunkt der Veröfferdichung war un- 
sere Preisangabe noch korrekt. Erst 





nachher hatte der Bauteilelieferant der 

Firma Richter die Einzelpreise erhöht. 

„Jatzt soll die Firma Richter die Bautelle 

von einer anderen Firma wieder zum frü- 

heren Preis anbieten. Zum zweiten Teil 

der Anfrage: Bevor durch unsachgemö-. 
Be Behandlung ein Rechner zerstört 

wird, sollte er lieber zu Fachleuten gege- 

ben werden. Die Firma Wolf-Dieter 

Herrn baut die Rechner nicht nur für 98,- 

(alles incl.) um, sondern repariert auch 
durch den Eingriff beschädigte Compu- 

ter, Die meisten Fehler enstanden da- 

durch, daß wir den Umbau für den C 116 

beschrieben hatten und die entspre- 

chenden Leiterbahnen des c-16 nicht so 

leicht zu finden waren. Daher nochmal 

eine Ergänzung: 

Der Baustein U 8 muß an Pin 14 von der 

preiten Leiterbahn gatrennt werden. 

Diese Leiterbahn selbst darf nicht unter- ' 
brochen werden! Die meisten Schwie- 

rigkeitan machte es, die Verbindung von 

Pin 2 und Pin 16 bei U 7 herrauszufin- 

den. Beim 6-16 muß man einfach nur 

die Leiterbahn, die vom PIn 16 weg un- 

ter den Baustein führt, mit einem feinen 

Schrauberzimmer oder Nagel. durch- 

trennen. Der Baustein muß nicht her- 

rausgenommen werden. 


Bet einigen wenigen Modelfen waren die 
erforderlichen Chips bereits eingebaut. 
Da waren bei der Produktion die kleinen 
Chips wohl gerade ausgegangen und 
man hat einfach die plus 4-Bausteine 
verwendet. Die glücklichen Besitzer ei- 
nes solchen ©-16 brauchen nurnoch die 
Leiterbahnen aufzutrennen und haben 
einen echten 64 K-Computer, 


4% 


C-16 & C-16 * C-16 * C-16 * C-16 * C-16 & C-16 * C-16 * C-16 * C-16 


C-16 v C-16 
cıs DIE FORMEL FÜR SPASS UND ACTION: c-ı6 
ge SERVICE + QUALITÄT + EWOB en 
C-16 SIMULATOREN: SPORTSPIELE: Cc-16 
C-16 FLIGHT PATH 737 28,95 KUNG FU KID 27,95 16 
TORPEDO RUN 18,95 WINTER OLYMPIC 29,95 

©-16 FORMULAR ONE 9,95 WORLD CUP 18,95 C-16 
c-16 ‚ACE (KAMPFFLUGZ.) 38,95 THAI BOXING 18,95 'C-16 
Ce he m a a Cie 
C-16 SPACE PILOT 24,95 ATLANTIS 1805 C-16 
16 BERKS TBaaa on ne Ri an zn 18,95 C-16 
C-16 DIES BEDEUTET FÜR SIE: KEINE ZUSÄTZLICHEN PORTOKOSTEN C-16 
C-16 KEINE MINDESTBESTELLMENGE - KEINE NACHNAHMEGEBÜHR C-16 
C-16 DIE LIEFERUNG ERFOLGT FREI HAUS C-16 
C-16 VERSANDHANDEL R.LINDENSCHMIDT; SCHULSTR. 14, 4972 LÖHNE 2 C-16 
C-16 TELEFONISCHE BESTELLANNAHME: 05732-72849 (FA. LIPKOWSKI) 16 

KOSTENLOSES C-16 INFO MIT ÜBER 100 SPIELEN ANFORDERN! C-16 


C-16 . 
C-16 * C-16 * 


C-16 * C-16 * C-16 * .C-16 * C-16 * C-16 * C-16 * C-16 
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programme 





Ein spannendes 
Grabespiel 
für C16/116/plus 4 


”Diggy” steht vor seiner Hütte 
und besinae sein Tagewerk. Er 
muß mit Hilfe eines Aufzuges in 
das Erdinnere fahren, um in dem 
schraffierten Grabfeld nach acht 
versteckten Diamanten zu su- 
chen. Auf dem Weg zum Aufzug 
und später, auf seinem Rückweg 
zur Hütte, muß er“jeweils zwei 
Gräben überspringen. Ein ge 
glückter Sprung erbringt einen 
Bonus von 30 Punkten, ein Sturz 
in den Graben bedeutet Spielen- 
de, und die bis dahin angesammel- 
ten Punkte werden angezeigt. 
Ebenso wird das Spiel nach Über- 
schreiten des Zeitlimits beendet. 


Wenn Diggy sich durch die Erde 
gräbt, wird ein. gefundener Dia- 
mant optisch angezeigt und musi- 









kalisch untermalt bis er aufge 
nommen wird, Gleichzeitig wer- 
den 100 Punkte gutgeschrieben. 
Aber Achtung: mehr als zwei 
Diamanten kann Diggy sicht 
gekbait nach oben. bringen. 

inen eigentlichen Lohn erhält 
Diggy erst, wenn er diese im Safe 
in seinem Haus abgelegt hat. 


’DIGGY” wurde bewußt als ein 
Spiel für Kinder (unter 10 Jahre) 
konzipiert, um unter Verzicht auf 
Schiefsereien und anderen tödh- 
chen Elementen die sonst auftre- 
tenen Agressionen zu verhindern. 
Mit "Diggy” ist ein Spiel entstan- 
den, das daher Kindern ohne Ge- 
fährdung zur Spielnutzung gege- 
ben werden kann. 


1000 REM KrnKH HH HFE EHER HH <176> 
1010 REM *# . * <86> 
1020 REM * BIGSY * »158> 
1030 REM * : * .<X107>3 
1040 REM # (C) 1994 BY WOLF: WINKLER #* x36> 
1050 REM # 3 n ‚* 1272 
1050 REM BB HIHI TAI EN <237> 





1070 r 

1080 REM KANHsHnHaNHreRk 

10909 REM #** TITELBILD ## 

1100 REM HAHHHREHnErH 

1110 = 

1120 SCNELR: COLORO, 7,6: C0OLOR4,7,4 

1130 PRINT"<CLEAR DOHN5 SPACEICHWOLFSOFT 
ASPACESFRAESENTIERT" 

1140 PRINT"{DOHN RED SPACETY ——ISPACEIT m 
SSPACEZ3__TSPACE4S —_TSPACEZI „TSPACEII 
1150 FRINT"ISPACES> 1-.TSPACEZF SPACE Pi. 
SPAGEF NISPACE> "LSPACE2Y NAEPACEI TSPAC 
Er IHISPACE> F" j 

3169 PRINT" ISPACEE} ICSPACE RYSON SPACESS 
WERVSOFFE> IESPACE RVSON SPACE RVSOFFI MR 
VSONIWISPACEZY WIRVEDEF> DARVSONIPIZPACEE 
FYRVSOFF3 HSPACE RYSON SPACE RYSOFF SPA 
CE KSPACE AVSON SPACE RUYSOFFF"” 

1170 PRINT"{SPACES} KSPACE RYSON SPACE R 
VSOFF> KSPACE RVYSON SPACE RVSOEFI KSPACE 
RYSON ZEACE RVYSOFEI KSPACE RVSON SPACE 
RVSOFE>__S IISPACE RVSON SPACE BYSOFFF N 
KSPACE RVSON SPACE RBUVSOFF SPACE: KZPACHE 

RVSOH SPACE RYSOFFH” 

1190 FRINT"CSPAGESY KSPACGE RVSON SPACE R 
VSOFF> KSPACE RYSON SPACE RUVSOEFI SPACE 
RYSON SPACE RUSOFF> KSPAGE RESON SPACE 
RVSOFFYINISPACEN N KEPACE RVYZON SPACE BVSD 
EF3ASPACEN TSPACEN ARVSON SPACE RYSOFE} 

wm ERVSON SPACE RVSOFFF”" 

11970 PRINT"ISPACESY HSPACE RVERN SPACE R 
VSOER KSPACE RVZON ZRACE RVSOFFF KIPACE 
RVSOH SPACE RYSGFF: NEPACE RVSON SPACE 
RYSOFFINIRVSON SPACE2 RUSOFF} KSRACE BVS 
ON SPACE RVSOFFEFNARVSON BPACEZ RYSOFF SP 
ACEPIIERVSEONFIRVSOFEFSARVSONIPIRVSUFFSW 

” * 
























































1200 PRINT" ISPACEE} ITSPACE RVSON SPACE R 
VEGFF> IISPACE RVSON SPACE RVSOFF> SPACE 
RVSON SPACE RVSOFF> SPACE RVSON SPACE 
RVSOFF} KSPACE RVSON SPACE RWSOFF> KSPAC 
E RVSON SPACE RYSOFFI_KGPACE RVSON SPACE 
RUSOFF SPACEE> FICRVSON SPACE RUSOFFIM" 
1210 PRINT"{SPACES> IISPACE RYSON 3PACE R 
VSOFF SPACE>-ARVSON SPACE RVSOFEY MEPACE 
RVSON SPACE RUSOFF SPACE: \ARVSON SPACE 
RVSOFF SPACE; "{RVSDN SPACE RUSOFF SPACEI 
IRVSON SPACE RVEDEF SPACE? \SRVSOR SPACE 
RUSGFF  SPAGE2> KSPACE AVEON SPACE RVSOF 

F} ” 

1220 PRINT" ISPALEZINARVSON SPACEI RVSOFF 
IWLSPACE> ERFSON SPACE RVSUEF. SPACEZFKR 
VSON SPACE2 RVSGEFIFISPAGE2I WRYSON SPAC 
E2 RVSOFFIWESPACEIN" CRVSON SPACE RVSOFFI 
[3 


















































1230 PRINT"{DOUN2 BLACK SPAGCELOFEINTSPAG 
E?SPIELTSPACEFFUER<SPACEFKINDER" 

12746 GOSUB3460:SENELR 

1250 

1750 REM UEKKEHRUNKHUHUERR FERN 

12709 REM #* NEUER ZEICHENSATZ *#* 

17Bua REM Here EN IEIIER 

1290 * 

1300 RESTORELF40: CLR: V=-452R0 

1310 PGEEV+18,PEEK (V+1B) ANDZSL 

1329 POKEVr19,FEEK (V+1 9) ANDZOR4I 

1330 FORT=9832T0849:READAF:POKET,DEC (AS): 
NEXT;SYSB32 


1340 DATAA2,00,BD,00,D0,9D,00,50,BD,00,D 


1,9D,00,31,6A,DO,F1,60 

1350 FORT=12800T013055:READAF:POKET,DEC( 
At) ıNEXT 

1340 8 ; 

1370 DATA 01,7F,47,4F ,4F ,„4F „57,61 


Sompube mih 


<108> 
<241> 


«1737 


=5> 
»149> 


<218> 


£3> 


<143> 


<199>5 


<zZ0&} 


2167 


2077 


“169> 


593 


<78> 


<181> 
221%> 
«323 
<141> 
«81> 
<1&2> 
<73> 
2> 
£97> 
<9A> 


1505 
“rEr 
#128% 


<143> 
x174> 


1280 DATA 80,EQ,EO0,FO,F8,E4,E2,81 
1390 DATA 7F,41,63,55,49,59,67,41 
1400 DATA FF,41,22,14,08,04,02,01 
1410 DATA 82,C00,40,90,08,74 Az,ct. 
1420 DATA 01,03,07,0F,18,3B,7B,FB 
1430 DATA 80,C0,E0,F0,18,BC,BE,RF 
1440 DATA 00,EFEF,EF,00,FB,FB,FB 
1450 DATA FF,FF,FF,FF,FF,FF,FF,FF 
1450 DATA 55;44,55,AA,55,AA,55,AA 
1370 DATA 90,18,30,3C,18,3C,7E,FF 
1480 DATA BD,3C,30,108,18,18,18,5C 
1490 DATA 00,01,05,03,01,03,07,0F 
1500 DATA 00,80,60,C0,80,C0,E0,FO 
1510 DATA OB,03, 03,05, 06,0C,1B,1E 
1520 DATA D0,C0,C0,E0,70,39,30,538' 
1530 DATA 0B,03,03,07,0E,0C,0, tC 
1540 DATA DG,C0,C0,00,80,30,18,38 
1550 DATA 10,10,10,10,10,10,10,10 
1550 DATA 10,10,10,10,18,3C,7E,FF 
1570 DATA 00,00,19,30,56,3C,18,00 
1590 DATA 00,00,00,00,00,18,3C,3D 
1590 DATA 17,38,7F,FC,BC,36,3E,56 
1E00 DATA 37,30,30,70,00,00,00,00 
1610 DATA 00,04,04,04,37, 76 47F 537 
1620 DATA 00:38, 18,30, EO,E2,FE,FE 
1530 DATA 0B,03,03,07,1E,1C,10,00 
16406 DATA DO,C4,FC,FC,00,00,00,00 
16850 DATA 0B,235,3F,3F,00,00,00,00 
1560 DATA DO,C0,00,£0,74,38,08,00 


1570 DATA Ber FF ,FF,00,00,00,00,00 
15480 DATA 55,AA,SS, AA ,55,AA,55,AA 
1890 z 


1700 REM Kanu hrrHr 


1710 REM ** SPIELFELD ** 

1720 REM EHHERHNHER EEE 

1730 : 

1749 SENELRECOLOR1,5,2 _ 

17529 PRINT" SHOHEF Z=z=220H HS 2222222220 52355 
zareammereonomszet 

1740 PRINT" {DOWN} —====S= 7 sem 


|} 
zZ Bmz===2Hnn msn 


1770 PRINT" {DOHNS?" 
17904 COLOR4,10,2:FDRZ=1T03 











1790 PRINT" {III II EI I I FIG KRSPAGEZF II I LIE 
SPACE2F TITEL II ITSPACE3 | II I I"T=NEXTZ 
1800 PRINT" FIIEITERTASTETTEIESESIERI ITEM 
III IISSPACER | IH hi® 

1819 FORZ=1TO1ASPRINT" Asansanmanannan an 
Dane nenn | ERBA en 
1920 PRINT® FIT NN HERLHALARFIKHIKERTIGEE 
III TTXSPACER | 1 | ITHQHEF" 3 FOKE4071,72 





1830 GOLOR1,3,1 

1840 CHAR1, 3 „S,"—-DOHN LEFT3}} | —{BBHN 

LEFT#} | ESPACE2F XDOHN LEFT#H | II" 

1850 CHAR1,33,6, "71 -TDOHEN DEN LEFTZ}| SPACE} 
LZDOHN LEFT3>| CSPACE} |" 

1860 CHAR1,34,4, "TBLACKI-PIDOHN LEFT2I | — 
—{DOHN LEFT3—TDOHN LEFTI—-IDDOUN LEFTI—" 
1870 FOKES431,68: PÜKEFA&6, 74: FOKFE2442, 16 
1880 POKES9O05,32: POKES945 ,352 

1890 FRINT"{HOME DOUHN SPACEIZEIT: {SPACET 
IFUNKTE: {SPACEZFDIAMANTEN:E " 

1900 3 

1910 REM KHaHHKH EHER 

1920 REM ## DIAMANTEN VERSTECKEN ## 

1930 REM ern 

1940 

1950 FORT=1T08 

1960 XLTI=INT(RND<(13*299 +1: YCTI=INT (RNDt 
1)#11)+13:P(T)=3072+X {TI +40xY CT) 

1970 IFT=1THEN1990 

1980 FORB=1TDT-1: IFP(TI=PB) THENL96&0:NEX 
TB 














<154> 
x91> 

z1397 
z28> 

<193> 
<168} 
<172> 
<182> 
<96> 

<a9% 

x243> 
<a3> 

<2354> 
22283 
<248> 
<220> 
<105> 


«157: 


<187% 
<151> 
%234> 
<B3+ 


RAIE> 


‚1927 


<b7> 
<b> 
x101> 
<248> 


x244> 


“137> 
<öl> 
<z18> 
“997 
<z44> 
<115> 
Ss2> 
<133> 


<198> 
<202> 
<134> 
<206> 
<173> 
<122> 
<218> 


xa7> 


.s200> 


<120> 
«12937 


<258> 
<156> 
<x587 


<48> 
<1753> 
“230> 
x43> 
*250> 
<2137 
<44> 


si31> 
Bien 9 


33} 


programme 


1990 POKEP<TI „AS:NEXTT 
2000 : 


:2010 REM RR EHR 


2020 REM #*# SFIELROUTINE #%* 

2030 REM HEHE 

2040 : 

2050 S=Rı:7=8: ZE=250: PU=0: DG=-0: DA=0:C=5 
2060 PRINT" {HOHE}"SPRINTTAB (6) ZE3 Ss PRINTT 
BBtZ20) PU: :FRINTTAB(ZSIDA 

2079 CHAR1,5,Z, "UP LEFT3 ""SVOLS 

Z090 3 

2090 REM ÜBERIRDISCH 

2100 : ä 

2112 IFZE<LTHENS240:ELSEA=4INY(R) 

2120 GONAGOTD2130,2180,2140,2130,2130,213 
0,2220, 2200 

2130 G05UB2790:GOSUB27&0;:G0T02119 

2140 IFS=ATHENGOSUB2890: GOSLUB2760; 507021 
10 

2150 IFS=34THEN2130 

21650 IFS=3S2ZTHENGOSUB2F10: 60SUB2760:G0UT02 
350 

2170 GGSURZBUVO: GUSUB27A0O: GOSUR2I80: IFPEE 
K(P+40) =32THENS1R0: ELSE2110 

741830 : IFS=40R5 327THEN?130 

2179 GOSUR2BF0 : GUSUBZ7 60: GOSLUB2980: IFPEE 
KtP+40)=32ZTHENS190 

2200 IFPEEK (P+39) = 32 THENFU=FU+30:G60SUB27 
70 

2210 G0T02110 

2220 IFS=4THENZ130 

2230 IFS=&THEN2260 

2240 IFS=34THENZ2270 

22509 G0SU82810: 505182780: G0SUB2880: IFPEE 
K(P+40)=32THENS190:ELSEZ11O 


2260 BOSUB2F30: GGSUB2760: GDSUB2F740: EFDA> 


ATHENSZBOHELSEZ110 
2270 GOSUB3010:G05UB2780:8DT02110 

2280 IFS<9THENZL1O 

2290 GDSUB2B50: BOSUB2?&0: BOSLIBZBA0: IFPEE 
K(P+40) =32THENS180 

2300 IFPEEK {P+41)=Z2THENPU=PLU+30+B0SL1B27 
70 

2310 GOTOZ110 

2320 : 

2330 REM IM AUFZUG 

2340 x 

2350 Z=7+1 

2360 IFZEX1THENZ?40: ELSEA=IOY (1) 

2370 DNAGOTO2390 , 2380 ‚2380 , 2380 , 2420 ,238 
0,2450 ,2380 


2390 GOSUB2790: G0OSUB27&0: 560702360 


2390 IFZ=FTHEN?Z38O0 

2400 IFZ=10THENGOSUBSO40: BOSUBZ760: GOTOZ 
360 ; 

2410 B0SUB3050; 505UB2740:G6DT02380 

2420: IFZ=24THEN?38O 

2430 IFZ=9THENGOSUBFO30: GDSUB2750: G0OT023 
&0 

2440 BOSUBFO0A0: B0S5UR2780:G60T023509 


2450 IFZ=SFTHENZ=2-1:60T02110 
24650 IFZ=22THENZ=Z-1:560702510 


2470 G0T0238G 
2480 : 
2470 REM 
2500 : 
2510 IFZE<1THENS240: ELSEA=JIDY (1) 

2520 ONABOTD2540 ‚2530 ,2570,2530 2640 ,253 
0,2670,2530 

2530 GOSUB2790: : G05LB2740: 60702510 

2540 - IFZ<1SORS>S2THEN2530 

7550 BOSUB2880: P=P-B0: BOSUBSOBO 


IM GRABFELD 


2560 GOSUR3079: GDSURZ740: GDTO2S1O 


2570 IFS<F2THEN2690 


Gompute mit 


<14&> 
x177 
“114> 
<30> 
<134> 
ter 23 
s232> 


<109> 
<FP1> 
<x98> 
2477 
<1183 
«2397 


%*377 
<4&> 


<> 
<0> 


<111> 


203% 
<156? 


<142> 


x77 
«2222 
<217> 
<10> 

<134> 


<31> 


x204> 
x135> 
<28> 


<2547 


<37?> 
<67> 
%“83> 
«257 
<105> 
<1h0> 
x2345 


<51> 
<151> 
«2205 


«71> 
<146> 
xg&> 


<1097> 
<1807 


x2077 
<997> 


<5> 
<2A5> 
<Bör 
<7> 
«128> 


<119> 
<251> 
<i50> 


"<103> 


<255> 
<172> 





programme 


2580 IFS=32AND2< >21 THEN2530 

2590 IFS>31ANDZ=21THENZA20 

2&00 GOSUB2880: P=P-3#7: GÜSUBIOBO 

2610 GDSUB2B890: P=P+1:G605UB3090 

2620 6G0SUB29I0: GOSUR27&0: IFS=3S4THENZ23SO 
26530 GDTO2510 

2640 IiFZ=230RS>732THEN2530 

2650 6CSUB28B80: P=P+40: GOSUBTOBO 

2660 GOSUBT120: GOSUBZ759:GOT02510 

2670 IFS=1THEN2SIO 

2580 GOSUB2880rP=P-41: GOSUBSOBO 

26590 GOSUB2880: P=P-1:G6DSUB3080 

2700 GOSUB2410rG0SUB2760: GOT92510 

2710 

2720 REM KUHHHEUEREEEE KERNE 

27320 REM ## UNTERPRIOGRAMME 

PFAD REM RER 

2750 z 

2760 ZE=7ZE-0.5:PRINT”IHOHEF"EPRINTTAB(7} 
;s:PRINTUSING”#4##" 3; ZEsRETURN 

2770 PRINT"TISHE3"EZPRINTTAB(2O) 5: PRINTPU 
:RZTLIRN 

2780 PRINT"IHOHEF"SPRINTTABCSTIE 
RETURN 

2790 SOUNDI „770,3: FORW=1TO3005 NEXT: RETUR 





N 
2800 SOLNDI „880 ,4:CHAR1,S,2,".TÄUR LEFT2 
+L.N" 2 FORW=41TOLSO:NEXTFECHAR1,5, 2," ESPACE} 
-{YP LEFT2 SPACE} ""25=5+1:RETURN 

2810 SOUND1 „880,4:8=8-1ICHAR1,5, 2," widR 
LEFTZ}LN"FORW=1TO1S0: NEXT= CHAR1,S, 2," 
SPACE HP LEFTZI XSPACE}" RETURN 

2820 SOUND1 „880,4: CHARI ,8,2,".T{UP. LEFT2 
3L."sFORW=1TOLOO: NEXT 

298306 FORT=1T02:CHAR1,5,Zy"ISPACEISHLUP L 
EFT3 SPACE}."=2FORW=1T0100: NEXTW:S=S+1:N 
EXTT 

2840 CHAR1,5,Z,"{SPACEI> {UP LEFT2 SPACE} 
.",8=8+1H RETURN 

2850 SOUND1 ‚,890,4:8=$-1: CHAR1,5, 2," atUR 
LEFTZY_N"3FORW=1TOLOO:NEXT 

28580 FORT=1102:5=5-1:CHAR1,8,2,"N ITSPACE 
ur LEFTZHLN{SPACEI "= FORW=1T0100: NEXTW=N 
EXTT 

2870 CHAR145,2,""TSPACE UP LEFT2> ASPACE 
3" RETURN 

2B80 P=3072+5+40#7: RETURN 























. 2890 SOUNDI ‚880,4: CHAR1,8,Z,"L.":FORW=1TO 


150: NEXTSCHARL,8, 2," {SPACE} " S FORW=1TOFOO 
=NEXT 

2900 9=8+2: Z=Z+1:1CHAR1,5,2,"TÄUB LEFTS 
:FORWSATOISOSNEXTSCHARI „8,2, "UP. LEETI N 
"RETURN 


2910 SOUND1 ‚880,4: CHAR1,5,2Z," UP LEETIL 
"FORW=1TO150: NEXT CHAR1,8, Z,"{SAALE UR 


LEFT SPACEI" 

2929 8=5+2: CHAR1,5,Z,"TIUR LEFTI N" FORW= 
1T0150: NEXTSCHART „S,2,"- UP. LEFTF ULRETU 
RN : 





2930 SOUND „880,4: CHAR1,3,Z,"@{HR LEFTIN - 


"3FORW=1T0150: NEXT: CHAR1 ,5 
LEFT. SPAGEY" 

29409 9=5-2: Z=2-1:FORW=1TOS300: NEXT:CHAR1, 
8,2,"L"=FORW=1TO150: NEXT 

2950 CHAR1,5,2Z4" ""SRETURN 

2960 IFDB=OTHENRETURN 

2970 IFDE>ZTHENDE=2 

2790 DA=DA+D6: GOSUB2780: IFDA>ZTHENC=10 
2990 PU=PU+DG#C#INT (ZE) + 605UB2770: DGE=0:V 
ga 

Z000 FART=400T0I00STEP20: SOUND! „T,42NEXT 
s FORW=1 TO8BO: NEXT: VOLZ: RETURN 

3010 SOUND1 ,880,4:CHÄR1 ,S,Z,"@{UP LEFT}Y 


8,2, "ISPAGE up 


<220> 
<200> 
207? 
1233 
<189> 
“1447 
<242> 
<x150> 
<82>7 
<172? 
*202> 
“2137 
«1377 
“219> 
KZAI? 
<201> 
<Pr 
“2> 


“2517 


xZ40> 
:PRINTDA 


s109> 


<b2> 


«121> 


<198> 


«1747 


<S58> 
x2137 


x71> 


“1> 


<100> 


“7> 


x218> 


x123> 


.*218> 


<196> 


<57> 


<123> 
<115> 
<73 

<127> 
st50> 


<iä4> 


743 


“.FORW=1TOLSOSNEXT: CHARI, S,Z, "SPACE UP 
LEFT SPACE)" :8=S-2 

3020 FÜRW=1TOSOO:CHARI ,S Ey" Ku LEETHL" 
 FORW=1TO150: NEXT:CHAR1 „94 2,%- (UP. LEFTS - 
"RETURN 

3030 SDUNDI ‚880,3: 2=22+1:CHAR1 ,5, 2," s{UP. 
LEFT2-{UP LEFT> UP LEFT3W" sFORW=iTOAO:N 
EXT:RETURN 





‘5040 SDUND1,880,3:CHAR1, 3; 32," SPACE Gr LE 
» 2=Z7-1: FORW=1T 


EFT} {ER LEFT3- UP LEFTF: 
080: NEXT+RETURN f: 

3050 SALND1,886,35CHAR1,5,Z, " {SPACE URL 
EFTIRIUP LEFTI- SUP LEFTIAUR LEFTSW"STZ=Z 
-1: FORW=1T0&0: NEXT: RETURN 

3060 SDUNDI,880,3: 2=Z+1:CHAR1,5,2,"ntUP 
LEFTI-ÄUP LEFTI XUP LEFTIKUP LEFT2 "FO 
RWSITOROSNEXTSRETURN 

3079 SOUNDt „880,4: CHAR1,5, 2, "ti UR LEFTIN 
{yUP LEFT} -" FORW=1TO200: NEXT:CHARI ,S,Z, 
XSPACE UP LEFTY-AUA LEFTF "rZ=Z-i 

3080 IFPEEK {P}< >93THENRETURN 

3070 FOKEF ,84:PDKEP-1024 ,48:DG=DG11 

3100 FU=FU+100:G0SUB7770:VALEB 

3110 FÖRT=1T03: SOUND1 „685, 10: SOUND1 ‚737, 
20: NEXT: FORW=1TO400: NEXT: VOLS: RETURN 
3120 SOUND ,880,4: 2=Z+13CHAR1,5, 2, "OtUR 
LEFT> {UHR LEFT} „"sFORW=S1TO2G0: NEXTE CHART 
Sy Z,"-{UR LEFTY UP LEFT SPACEI"SRETURN 
3130 = 

3140 REM RHHKEcHicHHuner 

3150 REM ## SPIELENDE *# 

3150 REM KAHN 

3179 ı 

35180 IFS=14THENS=15 

3190 IFS=23THENS=22 

3220 FORT=0TOS: CHAR1,5,Z+T,"# KUPR LEFTZ 
SPACE2Y" :FORW=1T070: NEXTW= NEXTT 

3210 SCENELR=E=1:CHAR1,13,6, "{BLACKYDUTSR 
ACE3BISTISPAGEHLEIDER" - 

3220 CHAR1,0,89,"INISPALEFDEN !SPACEFERABE 
NESPACEIGEFALLENTSPACEN!": GATO3S2Z39 

3230 3 

3240 SCNELR>E=1:CHAR1, 11,6, "{BLACK:DEINE 
{SPACEIARBEITSZEIT" 

3250 CHAR1,9 „B, "IST{ISPACEILEIDERISPACEHZ 
ULSPACEIENDETSPAGEN ! 

326460 VOLB:FORI= BROTBZSOSIER ZINSEN, T, 
2:NEXT:GOTO3S00 

3270 ı 

3280 SCNCLR:E=2:CHAR1,10 „6, "XBLACKIDUTSP 
ACE}BISTISPAGEIDERTSPÄCEIBGROESSTE" 

3290 CHAR1 ,5,8, "DIAMANTENSUCHER{SPATEFAL 
LER{SFACEFZEITENTSPACEI!" 

3500 CHARLJISTLISFLRERFS HI II II EI I" 
3310 CHAR1,13,12, "| SSPACELLY { 

3320 CHAR1,15,13," I {BLACK FLASHON SPAGE} 
SPFIELENDEtSPACE FLASHOFF RED" 

3330 CHAR1,13,14,"| £SPAGEL1Y:" 

EZ349 CHARL3IS,1S, "TE TLET SG LTI TBLACKI* 
3350 CHAÄR1,11,18, "DEINE{SPACEIFUNKTES "r 
RINTPU 

3344 IFE=2THENGOSUR3A4AO 

3370 CHAR1,9,20, "NOCH\SPACEFEINISPACEISP 
IEL{SRACEN LI/ND ?" 

3I80 GETKEYBFE IFQF=" I" THEN1 740° 

3390 IFO$="N"THENSCNELR: FOKESSZIE, 196: PO 
KE6S5297 ,208: END 

3400 GOTOZSBO | 

410 2. 

34720 REM RHHRuRHnier 

3430 REM ## MUSIE *% 

3440 REM KHK 

MS 5 

S440 VOLB: RESTORE3490 
































GCompube mi 


«1755 


<82> 


1238 


“227 


un 


2505 
<246> 
az 
x7% 


RF2r 


x68> 


x252> 
<12r 


<175> 


x2> 
<172> 
807 


“1337 
“117> 
s3g> 


<229> 
<124> 


“77 
“a4 > 


x181> 
«17532 
x155> 
<154> 
ER? 

<174>3 
<193> 
2249" 


9/86 


r 

















3470 READN,L,P: IFN=-1THENRETURN: ELSESDUN 
Di „N,L:FORTZ=1 TOP: NEXT: GOT03470 

7480 DATA 594,5, 100,643,5, 100,685, 10,200 
‚739,10,200,739,10,200 

3490 DATA 770,10,200,739,10,200,685,10;2 
00,596,10,200,576,5,100 

3500 DATA 443,5,100,685, 10,200, 485,10,20 
0,643,10,200,596,19,200 

3910 DATA 643,30, 400 ,596,5,100,643,5,100 
‚685, 10,200,739,10,200 

3520 DATA 737,15,300,770,5,100,739,10,20 
0,485, 10,200,596, 10,200 

3520 DATA 596,5,100,443,5,100,685, 10,200 
,685,10,200,643,10,200 

3540 DATA 643,10,200,596,30,600, 704 ,20,4 
00,704 ‚20,40, 770, 10,200 

3550 DATA 770,20,400,770,10,200,739,10,2 
00,737,10,200,685,10,200 


222> 
1793 
<21> 
1197 
RF> 
<151> 
2277 
34 


«131> 





programme 


2560 DATA 596,10,200,643,30,600,596,5,10 
0,643,5,80,685, 10,200 & 

3370 DATA 739,10,200,739,10,200,770,10,2 
00,739, 10,200,&85, 10,200 

3580 DATA 596, 15,300,643,5,100,685,10,20 
0,695,10,200,643,10,200 

3590 DATA 643,10,200,596,,30,600,-1,-1,-1 
ENDE DES LISTINGS 





TAPEDIRECIORY 


1423 


<9&> 


<110> 
s180> 








Endlich auch Inhaltsübersicht für Datasette (C 16/116) 


Nach dem Abtippen des Pro- Dann wird das eigentliche Pro- 
gramms kann ein Teil mit DELE- gramm eingetippt und abgesaved. 


Einfach Klasse ist dieses Pro- 
m. Wer hat nicht schon die 


est Datasettenerfahrungen 


gemacht wie: Wo ist das Pro- 
gramm, wie lange muß ich noch 


warten usw. 


Tapedirectory macht damit 
Schluß! Denn dieses Programm 
enthält nicht nur eine Inhaltsan- 
gabe der Diskette, sondern merkt 
sich auch, an welcher $telle einer 
Kassette das Programm beginnt 
und stoppt automatisch das Vor- 
spulen an der richtigen Stelle. 


Um all das bewerkstelligen zu 
können, muß Tapedirectory am 
Anfang der Kassette als erstes Pro- 
gramm abgespeichert sein, In der 
Zeile 30 muß der Wert der Band- 
eschwindigkeit stehen. Leider ar- 
= nicht alle Datasetten mit 
dem selben Tempo. Das separate 
Programm "”Bandgeschwindig- 
keitstest” misst die Geschwindig- 
keit der jeweiligen Datasette aus. 
Diesen Wert muß man dann in 
Zeile 30 eintragen. Voreingestellt 
ist hier der häufigste Wert (12). 


In Zeile 20 muß der Zählerstand 
nach dem Laden von Tapedirec- 
tory” eingetragen werden. Also, 
Rohversion absaven, zurückspu- 
len, Zählwerk auf Null stellen, 
wieder einladen und Zählwerk 
ablesen. Dieser Wert wird dann 
später in Zeile 20 eingetragen und 

las Programm dann mit allen An- 


derungen noch mal neu abgesa- 
ved, Zunächst füllen wir die Kas- 


sette mit Programmen auf. Nach. 


Tapedirectory lassen wir eine 
Lücke von etwa 10 Zählwerten - 
auch zwischen den einzelnen Pro- 
grammen sollte etwas Abstand 
bleiben. Das Suchen wird dann er- 
was zuverlässiger (vor allem bei 
der Verwendung von /Turbota- 
pe). Wir merken uns, an welchen 
Zählwerten die Programme be- 
innen und tragen diese Werte in 
en Datazeilen 101-126 ein. Und 
zwar Zählerstand, Programmna- 
me und Programmart. Als Pro- 
grammart können Sie: 
D für Datei 
„A für Anwender 
$ für Spiel 
eintragen, Leere Einträge werden 
mit » markiert. 
Die Programmart wird in der Di- 
rectory im Klartext angegeben. 


In einen wenigen Fällen kann es 
vorkömmen, daß die Datasette 
mit einer anderen Gerätenummer 
als 1 angesprochen werden muß. 
Dann kann die Adresse in Zeile 
1310 geändert werden, Dies gilt 
auch für den Drucker, dessen 
OPEN-Befehl in Zeile 2020 steht. 
Sind alle Werte angepaßt, kann 
das komplette Programm am 
Bandanfang abgesaved werden. 


Hinweise zu Eingabe 
Das kleine Programm Datagene- 
rator stellt eine Eingabehilfe dar. 


TE -100 wieder gelöscht werden. 

oO REM ee RAHARIHRHRHHRHEIHE AH 
1 REM *## 773 
2 REM ###* TAPE — DIRECTORY “RE 
3 REM a0 i E77 2 
4 REM #«* BANDGESCHWINDIGKEITS-TEST #u# 
5 REM #4 E72 
& REM ##* (EC)1966 FROG-SOFTWARE Ei 2 
7 REM #%* Fu 
8 REM ### MADE BY JOACHIM THEES RR 
REM EEE N EURE 
10 3 

20 SCNELR 


30 PRINT"{DOWN SPACEIDRUECKE{SPACEIDIETS 
PACEHRESET-TÄSTETSPACEHANTSPACE}ZAEHLNWER 
K“ 

40 POKE1 ,PEEK (1) AND247:POKE2044 ,128 

50 POKEL,PEEK(1)ORB 

60 IF{PEEK (64784) AND4) <>OTHENFO 

70 PRINT"{HOHE DOWNIZ RICHTYPRESStSPACEIS 


” 





80 S0TO 60 

90 IF(PEEK (54784) AND4) =OTHEN120 

100 PRINT"{HOME DOHNS RIGHTIPRESSTSPACEI 
FAST ISPACEIFORWARD". 

110 GOTO 90 





' 120 TI$="000000":PRINT"{DOHN SPACEYOK,BI 


TTEISPACEISO{SPAGEISECTSPACEFWARTEN” 
130 CHAR1,1,7,TIF 
140 IF T1 < 1800 THEN130 
150 POKE1 ,PEEK (1) AND247: POKE2044 „128 
160 POKE1 ,PEEK(1)0RB 
170 PRINT: INPUT"{DOHN SPACEINEUERTSPACEI 
ZAEHLERSTAND" 3 NZ 
180 NZ=NZ-1:BG=1800/NZ 
190 PRINT"{DOHN3 SPACEIBAND-BESCHWINDIGK 
EIT:* 
200 PRINT USING "##.##";BG 
210 PRINT 
ENDE DES LISTINGS 





Compute mik 


<3> 


<94> 7 


<60> 
<205> 


<105> 
<213> 
«1077 


2263 6” 
6 1b Zen 


2377 
LI" 

<1ald- 
<1bör ee 
«1703 


<67> 
<147 3% 


<155> # 
<19537 
<107> 














Programme 


© REM HHHHHHHHHHHEIHSHIRHIHHRHSSSIHHIHIHHHII NIE 
1 REM #%#* E73 
2 REM #rr TAPE - DIRECTORY E57 5 
3 REM «+ = 
4 REM *z# (C}178&4 FROG-SOFTRARE Ei 
5 REM u» j [2 700 
& REM ##” MADE BY JOACHIM THEES “+ 
7 REM zu« GUTENTHAL 352B 22% 
8 REM k#+ S552 NORBACH 4ER 
7 REM HRNSRIBRHHSSIHSSSHISSEAHESSSHHEIÄ-RIERENHIEAESFÄHNE 


10 ı 

20 AKA=0&58 z:REM ZAEHLERSTAND MOMENTAN 
30 BG = 12 :REM VORSPIN.-BESCHWINDIGKEIT 
40 BATA ANWENDER,„DATEI,„SPIEL,? 

50 z 

100 REM ZAEHLERSTAND, NAME (16) ,TYP 

101 DATA 000, "TAPETSPACEIDIRECTORYISFACE 
23”,A . 

102 DATA 000, "YISPACEISY",- 

105 DATA 000 ,YISPACE18}",- 

10% DATA 000, "{SPACEI6}",- 

105 DATA 000, "ISPACE163" ,— 

106 DATA 000, "iSPALEISI" „— 

107 DATA 000, "ISPACEISY" „— 

108 DATA 000, "TSPALEISEF",- 

109 DATA 000, "ISPACEIE3",— 

1109 DATA 000, "TSPALEISEY" „— 

111 DATA 000," ISPALEIEI” „— 

112 DATA 000, "ISPACEISY"„- 

113 DATA 0m, "ISPACEISY" „— 

114 DATA 000," {5SPACE187"” ,— 

115 DATA 000, "{SPACEI6}”, = 

115 DATA 000," {SPAGEISY"”,- 

117 DATA 000, "{SPACELS}” .- i 

1189 DATA 000,"TSPACEISY”,- . 

117 DATA 000," {SPACE163",- 

120 DATA 000," T{5SPACE16+" „m 

121 DATA 000," ISPACEISY" „— 

122 DATA 000, "ISPAGELEY" „m 

123 DATA 000, "ISPACEISI" „— 

124 DATA 000,P{iSPALEISY”" „— 

125 DATA 000, "TSPAGCEI6F" ,— 

159 E 

140 DATA" CSPACESY"” 

150 DATA"RECORD" 

160 DATA"XSPACEIFLAY { SPACE" 

17G DATA"REWIND" 

1890 DATA"F.FWBISPACEI" 

190 DATA" ISPATCEISTOFISPACE}" 

200 2 

500 TRAPZO000 

510 GOSUBI1OHOO 

520 PRINTEI$; 

530 GBEISUB11000 

540 GOSUB14000 

550 GETKEYAF:SWA=VAL TAF) 

540 UNWAGOTOIO00, 1000 , 2000, 2000 , 3000 , 300 
Q 

570 G0T0SS50 , 

580 : 

1000 REM LADEN 

1010 PRINTEIS; 

1020 OPEN1 „3: G05UB12000: CLOSEI 

1930 EOSUBL3000: IFAS=CHR$ (27) THENS40 
104090 FRINTAUF3 

1050 FRINTsPRINT: PRINT" {SPACEIPROGRAMMTS. 
PACE}" ; CHR$ (18) ; CHR$ (34) ;NAFTZEILE) 5SCHRF$ 
(34) 

1040 PRINTzPRINT” {SPACEIWIRDISPACEIGELAD 
EN{SPACEF" se IF WA=ZTHEN PRINT"&TSPACEIBE 
STARTET" 

10790 IFAKX>ZAX ZE)I THENL340 




















1080 IFAKA+9?ZAXTZE) THEN1210 

1070 FOKE1 „PEEK (1}AND247: PDKE2044 ‚128 
1100 FOKE1 „PEEK{1)ORO 

1110 IF<(PEEK (64784) AND4}<>OTHENI1 140 

1120 OP=5:6DSUB15000 

1130 GETAS: IFA$=CHRS$ (27) THENS40: ELSE 110 
1140 IF{PEEK (64784) AND4) =OTHENL170 

1150 OP=4:G0SUB15000 

11&0 GETA$: IFAS=CHRE (27) THEN 540: ELSE114 
o 

1170 TIF="000000" :DP=4:G05UB15000 

1186 GETAF: IFAF=CHRE (27) THENAKZ=SAKA+TL/B 
6: G0T0540 


<71> | 1190 CHAR1,198,13,STRFCINF{TI/BGI +AKH) 


xI6> 
193? 


"1240 





1209 IFTI/BG<CZARLZEI-AKZ-2THENI 180 


"1210 POKEi,PEEK(1)AND247:POBKE2044 , 128 


1220 POKEI,PEEK(1)0R3 

1250 AKX=ZAXIZE) 

IF (PEEK (54784) AND4} < >OTHEN1279 

1250 OP=5: 60SUB13000 

1240 GETAS$: IFA$=CHR$ (27) THENS40: ELSE1240 
1270 IF (PEEK (64784) AND4}=OTHEN1300 

1280 0P=2: G05UB15000 

1290 BETA$+ IFAF=ECHRS(Z7ITHEN 540: ELSE127 
Q 

1300 OP=&:505SL1R15000: POKE239 ‚0: FORI=OTD& 
sPOKE1S19+1,13:NEXTI 

1510 CHARI, ö, 12, "LOAD"+CHR$ (34) +NAS (ZEI + 
CHRE(34) +", 1" PÜKE239,2 E 

1320 IFWA=2THENPOKE239 „Ss: POKE1321 ,82: POK 
€E1322,85:POKE1325,78B 

1339 CHAR1 ,0,7, "ENDE. "END: SOTOS40 

1340 PRINTAU$F 


? 1350 PRINTCHR#{13) 3 TAB (B) "ZUERSTISPALCEIZ 





URUECKSPULEN{TSPACE HUND" 


. 1860 PRINTCHRE (13) TÄB (8) " ZAEHLERSTANDISE 


ACEYBENDERN{SPAGEI!" 

1370 PRINTCHR$( 13) ; TAB{15) "PRESS{SPACE>A 
NYTSPACEFKEY” 

1380 GETI BETKEYAS: BOTOS40 

1399 z 

2000 REM LISTEN 

2010 PRINTEI$; 

2020 IFWA=4THENDPEN1 ,4:PRINT#1 „CHR${1II 5 
"TAPE-LISTE"FEHRS (13) :ELSEOPENI,3 

2030 G0SUB12000 








"2040 CLOSE1:+ IFWAS>ATHENGETKEYAF 


2050 PRINTAUSFS 

2040 GOTOS40 

2070 r 

3000 REM ZAEHLERETAND 
3010 PRINTAUS 


"3020 AF=STRE AKA) s AS=RIGHTS {AF,LEN (AS) -1 


I = DOLUNTILLEN (AS) =>3: A$="Q"+A$: LODP 


"3030 PRINT" {SPACEIALTERTSPATEFZAEHLERSTA 


NDESPACE>: TSPACEI" AS 

5040 INPUT" TSPACEINEUERTSPACE}I ZAEHLERSTA 
ND{SPACEY"SB& 

3050 IFB$< >""THENAKK=VAL (BE) 

3060 GOTDS40 

3079 3 

4000 REM ENDE 

4010 PRINT AUSF:ENDSRUN 











‘4020 z 


10000 REM VORBEREITUNBEN 

100410 DIMZA%.(25) ‚NA$125) „IT$(25) ,TY$(4), 
TE$ (5) 

10020 EIN$=CHR$ (27) +CHR$ (78) +CHRS$ (27) +4CH 
R$ (779 +CHR& (27) +CHRS (67) 

10030 AUS$=CHR$ (27) +CHRS (76) +CHR$ (27) +CH 
R$ (78) 

10040 ZEILE=1 

10059 RETURN 


Somputbe mib 


<158>,# 
<85> 

90> 

<lll> 
7a> 
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<102> 
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<23I7 m 
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1535 
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100640 : 
11000 REM DATA 

11010 FORI=1T04:READTYP${T)NEXTE 

11020 FORI=1T025:READZAR(TI „NASCH „TTECI 
3=NEXTI 

11030 FORI=0TDS5:READTE$ (II ENEXTI 

11040 RESLOI=" u  — 
Tr ge, | 

11050 REFLII=" [ CSPACESHITSPACES} | TSPACES 
IITSPACESY | TSPACES} | 

11060 RE${ZI=REF(I) :FORI=1T05: MID$S (RES (1 
I ,74I-5)=TES (II ıNEXTI 

11070 RESLZI=TL——n nd 
a — 

11080 RETURN . 
11090 3 

12000 REM AUSGABE 
12010 FORI=1T025: PRINT#1 „USING" {SPAGE>## 
2 {SPACEI"I5 

12020 A$=STR$(ZAX(TI) TAS=RIGHTS AS ,LEN(A 
$)-1) :DOLINTILLEN (A®)=>31A$="0"+A$:LOOP 
12030 PRINT#1 „A$z "£SPACE2}" HJ CHRS (34) 1 NAS 
(1) 5CHR$ (34) ; "XSPALCE2}"; 

12040 FORJ=1T04: IFLEFTS(TYSCTI,LISTTEÄL) 
THENPRINT#1,TY$ (3) 4 2 ELSENEXTJ 

12050 IFJI=STHENPRINT#1 ,"-"SELSEPRINT# 
12060 NEXTI 

12070 RETURN 

12080 : 

15000 REM AUSWAHL 

13010 ZA=ZEILE 

13020 CHAR1,10,ZA-1 „CHRS (34) +NA$ (ZA) +CHR 
5134) 

15030 CHAR1,10,ZEILE-1,CHR$ (18) +CHR$ (34) 
+NAS (ZEILE) +CHRS (34) +CHR$ (146) 

13040 GETKEYA$: ZA=ZEILE 3 

13050 IFA$S=CHR$117) THENZEILE=ZEILE+1 
13060 IFA$=CHR$ (145) THENZEILE=ZEILE-1 
13070 IFZEILE>2STHENZEILE=25 

13080 IFZEILE<ITHENZEILE=1 

13090 IFINSTR (CHR$ (13) +CHR$ (32) +CHR# (27) 
‚A3) THENRETURN 

13100 IFZE=ZATHEN13040 

13110 601013020 

13120 : 

14000 REM MENUE 

14010 PRINTAUS$ 

14020 POKE1 PEEK{1)AND247:POKE2044 ,128 
14030 POKE1,PEEKt(1)ORE 

14040 PRINTTAB (6) 3 "TISPACEIATSPACEIFLSPA 
CEIELSPACEI-TSPACEIDISPACEN I{SPACEIRISPA 














CEIEXSPALEIKISPACEITISPACEIOTSPACEIRISPA. 








CEIY® 
14050 PRINTTAB (4) 3 :FORI=1T027: PRINTCHR$( 
193) 5; :NEXTI 


werkstatt 


14050 CHAR1,1,&, "MENUE= {SPACE ZI "+CHRS$ (27 
I+CHRE (84) 

14070 PRINT"1.) {SPACEHPROGRAMMISPACENLAD 
EN"+EHR$ (13) 

14080 PRINT"2. } SPACEIPROGRAMMTSPACEH.AD 
ENTSPACEFIUND {SPACE ISTARTEN"+CHRE 13) 
14090 PRINT"3.) {SPAGE}IDIR. TSPACEILISTENE 
SPACEITBILDSCHIRMI"+CHR$ (13) 

14100 PRINT"4.YTSPALCEIDIR. ISPACEILISTENT 
SPACE} LDRUCKERF"+CHR$ (13) i 

14110 PRINT"S.){SPACE>ZAEHLERSTAND{SPACE 
IAENDERN"+CHR$ (13) 

14120 PRINT"&.) {SPACE}FENDE. " B 
14130 A$=ETR$ (AKY) TAS-RIGHTS(AF,LENLASI- 
1) 1 DOUNTILLEN (Ab) =>: A$="O"+ASSLOOP 
14140 CHAR1,1,19, "ZAEHLERSTAND{SPALE?}: 5, 
PACEF"+AF 

14150 CHAR1,1,2%, "1C} 1FBALSPACEIFROG-SOF 
TWARETSFACEIBYLSPACEIJOACHIMTSPACE>THEES 
» 























14160 RETURN 
14170 » 
15000 REM REKORDER 
15010 IFOP>STHEN FORI=1T015:CHAR1 ,0,9,CH 
R$ (27) +CHR$ (68) sNEXTIFRETURN 
15020 VOL2:SOLIND2,1000,3 
15030 CHAR1 ‚2,9, "PRESS{SPACEI "+TES (UP) +" 
XSPACEIONTSPACEFTAPE" 
15040 A$=RES (2) :B$=RE$ (1) 
15050 C#=CHR$ (19) +TE$ (0) +CHRF 146) 
15060 A$=LEFTS (A$,IP#7-&) +CS+HRIGHT$ (AF,3 
&-0P#7) 
15070 'C$=CHRF (130) +CHRS (18) +TES (OP) +CHR$ 
(146) +CHR$ (132) 
15080 B$=LEFT$ (B$ ‚DP*7-&) +US+RIGHT$ (B$,3 
&-0P#7) 
15090 CHARI ,2,12,RE$(0) 
15100 CHAR1,2,13,A$ 
15110 CHAR1,2,14,B$ 
15120 CHAR1,2,15,A8 
15130 CHAR1,2,16,RE&(3) 
15140 RETURN 
15150 ı 
20000 REM FEHLERBEHANDLUNG 
20010 PRINTAUS$:CLOSE1 
20020 POKE1 ,PEEK{1)AND247: POKE2044 128 
20030 POKE1 „PEEK{1)DRB 
20040 IFER=13ORER=22THENPRINTAUS$} "?FEHL 
ERS {SPACEIDATAS" 
20050 PRINTCHR® (63) JERR$ ER) 5 " (SPACEIERR 
OR{SPACE3 IN{SPACEIZEILE" EL 
20050 IFERS LOTHENPRINTCHRS (13) 3 TABLISI"P 
RESS{SPACEIANV {SPACEIKEY" 1 BETKEYAS: RESUM 
ES40 
20070 END 
ENDE DES LISTINGS 
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C16/116/plus 4 
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<77) 
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1SP rn 


2313 — 
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<203> au 
(2357 m 
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<1727 
<70> 
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<40> = 
<60> 
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er re 
<148> m 
<S23I7y m 
<ibI>) 
<i90> — 
Zar. 
<1457 
<150> = 


«1227 
<104> — 


1637 
«527 





Wer seinen Computer nicht nur 
als reinen ”Spielerechner” benutzt, 


wird über kurz oder lang ein Pro-, 


blem haben. Einerseits will man 
Programm einlesen und sie even- 
tuell durch nachzuladende Pro- 
gramme (z.B. aus Speicherplatz- 
gründen) ergänzen, und anderer- 
seits sollen gleichzeitig durch 


eben diese Programme errechnete 
Daten abgespeichert werden. Die- 
ses Problem laßt sich natürlich 
sehr eleganı durch die Anschaf- 
fung eines Diskertenlaufwerks lö- 
sen. Doch eine Floppy ist trotz 
fallender Computerpreise auf 
Grund ihres komplizierten me- 
chanischen Innenlebens nicht bil- 


lig, Wer ein Cassettenlaufwerk 
besitzt, verliert bei dem oben be- 
schriebenen Betrieb jedoch 
schnell den Spaß am programmie- 
ren, da die Tätigkeit im Wesentli- 
chen nur noch aus dem Wechseln 
der Cassetten besteht, l 

Wenn schon das lästige Warten 
durch die Benutzung des 


 Gompuhe mi 


TURBO-TAPE Programms der 
Firma Kingsoft auf ein Achtel re- 
duziert wird, fehlt nur.noch, daß 
das ständige Wechseln wegfällt. 
Dies erreicht man durch die Be- 
nutzung zweier Datasetten, von 
denen eine der Aufnahme, und 
die andere der Wiedergabe von 
Daten oder Programmen dient. 


C 116 
Ä 
C 16 


STECKER- ZWISCHEN- 
BELEGUNG “ı [en u STECKER 


+5V 
CASSETTE MOTOR 
CASSETTE READ 
BILD 1 ä CASSETTE WRITE 
" CASSETTE SENSE 


ANSICHT VON OBEN 


SN 74 LS 00 SN 74 LS 123 


U 1,2,3,4 = % 7400 
S1,52 SCHALTER 


EINGANGSBUCHSEN 
STECKER ZUM INGANGSBUCHSE 
RECHNER = 


E 
NC —————— D’’SAVE” 
c 








% Computbe mik r86 








Die Entscheidung, daß beim Be- 
fehl'SAVE”Name”,1,(1)’ das Auf- 
nahmelaufwerk startet, und beim 
Befehl "LOAD”Name”,1,(1)° das 
Wiedergabelaufwerk seinen Dienst 
tut, trifft das Interface. Daß beim 
SAVE-Befehl für Sekundenbruch- 
teile das Wiedergabelaufwerk an- 


läuft, stört die Funktion nicht. 


Übrigens: das Interface funktio- 
niert nicht mit jeder ”tune up”- 
Version für Dataserten. Das 


TURBO TAPE hingegen funk- 


tioniert fehlerfrei. 


Die Schwierigkeiten gleich zu 
Anfang: die benöugten Stecker, 
Den Stecker für die Buchse im 
Rechner gibt es (Bezugsquelle am 
Schluss). Die beiden. Buchsen für 
den Ausgang zu den Dataserten 
gibt es nicht im Handel. Wir müs- 
sen uns behelfen. Es gibt bei den 
Commodore-Händlern ein Über- 
gangsstück zwischen Datasette 
1531 (für C-16/116) und C-44. 
Zwei dieser Übergangsstücke auf 
eine Platine mit Rastermass 3,96 
mm geschoben, und die Platine 


gemäss der Pinbelegung von Bild 
1° angeschlossen, bilden die 
Buchsen. 
Teileliste: 


1.) 1 Stecker für Datasetten- 
buchse am Rechner 


2.) 2 Übergangsstücke 
1531-C64 


3) ca. 50 cm 6adriges Kabel 
(passend zum Stecker) 


4.) ı Baustein SN 74LS00 mit 
Sockel 


5.) 1 Baustein SN 7415123 mit 
Sockel 


6) 1 Teimmpot 100 K Ohm 
7) 1 Elko 200 mikro Farad 
8.) 2 Transistoren BC 107 
9,) 1 Transistor BC 177 

10.) 2 DIL-Reed-Relais 5 Volt 


11.) 2 Ein-Schalter 
12.) 1 Diode IN4901 


13.) 1 Experimentierplatine mit 
Anschlußraster 3,96 mm(s.0.) 


14) 1 Gehäuse 


Die Teile werden gemäß Bild 2 
angeschlossen. Von der ’SAVE’- 
Laufwerksbuchse wird der "WRI- 
TE’-Anschluß direkt arı den. Rech- 
nerstecker angeschlossen, von der 
’LOAD’-Laufwerksbuchse wird 
der 'READ’-Anschluß an den 
Stecker durchverbunden. Es wer- 
den ausschließlich die Motoren 
geschaltet. Hier ein Hinweis für 
Raubkopierer: Wer glaubt, ein- 
fach die beiden verbleibenden 
Anschlüsse read und write verbin- 
den zu können, um dann drauf 
los zu kopieren. ..nichts da, so ein- 
fach geht das nicht ! Der im Zeit- 
glied eingebaute Trimmpoti wird 
am Besten auf die Mitte gedreht. 
Solite beim Abspeichern einer 
Datei mitUnterbrechungen plötz- 


kurs 


lich das LOAD-Laufwerk starten, 
muß nur der Wert des Widerstan- 
des am Poti vergrössert werden. 
Mit den beiden Schaltern kann 
das Drücken der Playtasten simu- 
liert werden, falls man eirımal nur 
eine der beiden Dataserten be 
nutzen will. 


Die hier gezeigt Version des Inter- 
faces ist recht einfach. Es gibt 
noch Erweiterungmöglichkeiten 
wie Leuchtdioden zur Kontrolle 
und Flip-Flops zur Abschaltung 
bei einem Reset. Was aber für die 
wesentliche Funktion unwichtig 
ist, und für den geübten Bastler 
kein Problem Fk: würde 
den ungeübten Basttler aber nur 
unnötig verwirren, Ein Tip zum 
Schluß: Bei der Verwendung des 
TURBO TAPE in Verbindung 


mit Endlos-Cassetten ( 1-3 Minu- 
ten Spieldauer) lassen sich mehre- 


re Programme ohne Rückspulen 
aufrufen 
Copyright Michael Lausch 
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6502-Assembler-Kurs 


Teil 16 





Bereich $C000-$CFFF 
(49152-53248) Freier Speicher- 
bereich 
Aus eigentlich unverständlichen 
Gründen hat Commodore diesen 
Speicherbereich nicht durch das 
ROM ausgeblendet. Hätte man 
beispielsweise den Basic-Inter- 
reter in den Bereich von $B000- 
CFFF eingeblendet, so hätte 
man 4K Bytes freien Basic- 
Speicher mehr zur Verfügung. Da 
es aber nun mal nicht so ist lässt 
Ren diene 4k Speicherbereich 
se t für Maschinenpro; - 
me en Fast ’alle erkällichen 
Tools,Maschinensprachmonitore 


oder auch Module nutzen diesen 


Bereich ganz oder teilweise, des- 
halb ebenfalls Vorsicht. Wir ver- 
wendeten bisher den Assembler 


von Däta-Becker, er liegt in dem , 





Im letzten Teil unseres Kurses haben wir damit begonnen, die innere 
Sp ent des C64 näher unter die Lupe zu nehmen, Wir wollen 
iese Beschreibung ab der Speicherstelle $C2%9 (49152) nun fortsetzen. 


Bereich von $9000-$9FFF und 
läßt somit diesen Bereich frei für 
Maschinenprogrammme. Auch 
zukünftig werden wir diesen Be- 
reich bevorzugt für unsere Bei- 
spielprogramme verwenden. 


Bereich $D000-D7FF 

(53248-55295) VO Video/Sound 
Dieser Bereich unterteilt sich er 
gentlich in mehrere kleinere Teil- 


stücke, Da die Belegung etwas. 


kompliziert ist wollen wir später 
etwas genauer daraufeingehen. Es 
sei jedoch jetzt schon gesagt 
hier Register für Grafik/Sound 
und Sprites zu finden sind. 


Bereich $D800-$DC00 
(55296-56319) Farbram 
Dieser Bereich liegt in seinem 
Aufbau parallel zum Bildschirm- 


speicher, Die einzelnen Bytes be- 
stimmen jeweils die Farbe des ent- 
sprechenden Zeichens. Da der 
Commodore 6 nur 16 verschie- 
dene Farben kennt, sind nur die 
unteren 4 Bits interessant. Dieser 
Bereich kann durch Poke und 
Peek beeinflußt werden. 


Bereich $DC0O0-DFFF 
(56319-57343) vo 

Auch dieser Bereich ist von. wich- 
tigen Registern belegt. Hier wird 


unter anderem der Impuls für den 


System-Interrupt erzeugt, Zwar 
läßt sich dieser Bereich durch 
Peek und Poke beeinflussen, je- 


doch sollte hier mit äuserster Vor- ' 


sicht vorgegangen werden. Auch 
der Parallel User -Port wird von 
einem Register in diesem Bereich 
gesteuert. 


GSomputbe miß 


Bereich $D006-DFFF 
(53248-57343) Freier Speicher 
Wie.der gesamte Adressraum des 
C64 ist auch dieser Bereich zu- 
sätzlich durch das RAM unter- 
legt. Dieser Bereich läßt sich je- 
doch weder durch Peek noch 
durch Poke beeinflussen, Ledig- 
lich Maschinenprogramme wel- 


. che den IRQ ausschalten und die 


Konfuration auf 64k Ram um- 
schalten können diesen Bereich 
nutzen. Eine andere Möglichkeit 
wäre diesen Bereich als Zeichsarz- 
Speicher zu nutzen, um eigene 
Grafikzeichen zu entwickeln. 


Bereich $B000-DFFF 
(53248-573493) Zeichensatz ROM 
(CHR) 

Der Bereich von $D000 bis 


$DFFF ist der einzige Bereich 
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welcher vom Betriebssystem drei- 
fach belegt ist. Neben /O Regi- 
ster und RAM läßt sich hier noch 
das Zeichensatz ROM des C64 
auslesen, allerdings änur von Ma- 
schinenprogrammen. Das.. Zei- 
chensatz-ROM enthäk die genaue 
Bitmatrix aller Commodore Zei- 
chen. Da der C64 zwei Zeichen- 
sätze mit je 255 Zeichen besitzt, 
errechnet sich die Größe des 
ROM Ss aus folgender Formel: 255 
Zeichen * 2 Sätze * 8 Bytes (8*8 
Matrix} = 4096 Bytes. 
Da der Zeichensatz im Rom fest- 
gehalten ist, läßt sich dieser natür- 
üich nicht verändern. Um Ande- 
rungen vorzunehmen läßt sich 
‚dieser jedoch in einen anderen Be- 
reich kopieren, was der Großteil 
aller Action-Games macht. 


Bereich $E000-$FFFF 
(57344-65535) Betriebssystem 
Hier liegt das elek Softwa- 
re Herz des Rechners. Das Be 
triebssysvem ist ein Programm im 
&k ROM welches die Verbindung 
von BASIC-Interpreter zur Hard- 
ware und zum Benutzer dastellt. 
Ohne dieses Betriebssystem 
könnte der Rechner weder Bild- 
schirm,: Drucker, Kassette, Dis- 
kette, Tastatur oder etwas anderes 
bedienen. Er wäre praktisch tot. 
Die obersteiı 6 Bytes dieses Berei- 
ches geben an ab welcher Spei- 
cherstelle ein Programm 

dem Einschalten, IRQ oder ei- 


nem NMI-Aufruf abgearbeiter 
werden soll. 


Bereich $E000-$FFFF 
(5734465535) Freier Speicher 
Auch der Bereich des Berrichssy- 
steıns wurde durch RAM unter- 
legt. Hier gild jedoch das schon 
für den Basic-Interpreter gesagte. 
Auch dieser Bereich, laßt sich 
nicht von Basic aus nutzen. Peek 
Befehle lesen. hier aus dem ROM 
‚Poke Befehle schreiben wie beim 


-Basic-Interpreter in den RAM- 


Bereich. 


Wie verwaltet der C64 diesen 
Speicher ? 
Da der Microprocessor 6510 so- 
wie alle 8 Bit Prozessorena magi- 
mal nur 64k (65536 Bytes) adres- 
sieren kann, muß der. C64 einige 
Tricks anwenden um den umfan- 
greichen Speicher von etwa 96k 
zu verwalten, Um dies zu bewälti- 
gu besitzt der 6510 gegenüber 
mi 6502 einen zusätzlichen 5 Bit 
Port. Dieser Port wird neben der 
Kassetten- Steuerung ausschließ- 
lich zum verwalten der Speicher- 
konfiguration genutzt. Die Zu- 
sammensetzung der 3 unteren Bits 
ibt arı welche Speicherbänke ein- 
zw. ausgeschaltet sind. In der 
C64 Fachliteratur spricht man oft 
von den Signalen LORAM, HI- 
RAM, EXROM, GAME und 
CHAREN, Diese Bezeichnungen 
stehen fast alle für ein bestimmtes 
Bit des C64 Portes. 


Die Signal zur Speicherverwaltung: . 


LORAM Bit 0 
HIRAM Bit 
CHARENBit 2 


des Prozessorportes 
des Prozessorportes 
des Prozessorportes 


GAME SIGNAL vom Expansionsport (MODULPORT) 





EXROM SIGNAL vom Expansionsport (MOÖDULPOR. 


Nun wurde es leider vom großen. 


C64 Entwickler Commodore 
nicht.so konstriert, daß jedes Bit 
eine bestimmte Bank ein- oder 
ausschalter, sondern nur die Zu- 


Signale gibt an welche Bank ein 
bzw. ausgeschaltet wird. Da die- 
ser Zusammenhang sehr kompli- 
ziert ist, möchten wir Ihnen mit 
der nachfolgenden Tabelle etwas 


sammenserzung der einzelnen helfen: 

LORAM=1 HIRAM=1 EXROM=1 GAME=1 CHAREN=1 PO- 
KE 1,7 
$0000-$9EFFF RAM für Basic-Programme 

$A000-$BFFF BASICINTERPRETER 

$C000-$CFFF Freier Speicherbereich für MC-Programme 
$D000-$D7FF Videocontroller und Soundchip 
$D800$DBFF FARBRAM , 
$DCOO-$DFFF Vo-Bausteine CIA 1/2 

$EO00-$FFFF BETRIEBSSYSTEM 


Diese Konfiguration ist nach dem Einschalten des Rechners eingestellt, 
wenn sich keine Erweiterung am Expansionsport befindet. Die RAM- 
Bereiche unter dem Basicinterpreter bzw, dem Betriebssystem sind nur 


‚über den POKE-Befehl erreichbar. 


LORAM=0 HIRAM=1 EXROM=? GAME=1 


CHAREN=1 POKRE 1,6 


$0000-$CFFF Gesamter Bereich auf RAM geschaltet 
$D000-$D7FF Videocontroller und Soundchip 


$D800-SDBFF FARBRAM 


$DC00-$DFFF VO-Bausteine CIA 1/2 _ 

$EO00-$FFFF BETRIEBSSYSTEM 

Diese Konfiguration ist nur dann vom Basic aus sinnvoll, wenn ein mo- 
difiziertes Basic in den RAM Bereich gelegt wurde. Wird kein Basic- 
Interpreter benötigt, so läßt sich‘der Bereich bis $CFFF voll'in Maschi- 


nensprache nutzen. 





An dieser Stelle möchten wir un- 
seren Teil beenden. Im nächsten 
Teil zeigen wir weiter Speicher- 
konfigurationen auf, und erklä- 
ren nocheinmal ua die 
Pro ierung des C64 Portes. 
Frank Brall 


Literatur: 

6502 Microcomputer- 
Programmierung, Peter Heuer, 
Hofa Verlag: 


-_- -- .-arr | _—  _e_ _. n.  -.— 


6502 Programmierung in Ässem- 
bier, Lanc A. Leventhal 


64 Intern, Angershausen, Becker, 


Englisch, Gerits, Data-Becker 


Buch 


6502/65c02, Christian Persson, 
Heise Verlag 
Butterfields Lehrbuch, J.Butter- 
field, Hanser-Verlag 
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"Compute mit” 8/86, Y- 
Adapter 

Zwei Fehler verunstalteren den 
Y-Adapter. In Zeile 38 muß es 
‚heißen: 

Pin 8 von Joystick 1 wird mit 
Pin 8 des weiblichen Steckers 
verbunden. Pin 8 von Joystick 2 
wird mit Pin 9 (l) verbunden. 
Ferner ist im Bild ein Leitungsfeh- 
ler. Untenstehend nun die Berich- 
ugung-. 


+ Korrekturen %* 





für C16 


”Compute mit” 8/86, Hardcopy 


Die abgedruckte Version ist leider 


nur in Verbindung mit dem Kas-- 


settenlaufwerk funktionsfähig. 
Die angegebenen $SYS-Befehle fus- 
chen’ leider in dem Disketten- 
DOS herum. An einer zweiten 
Version wird gerade gearbeitet, 


”Compute mit” 8/86, Combat 


Die Schneider-Anwender: wurden. 
in der letzten Ausgabe wirklich 
arg gebeutelt. Auch in Combat 
ist ein dicker Fehler. Und zwar 


Compute mit 


fehlen die Listingzeilen 870 - 1140 
komplett. In dieser Ausgabe ma- 
chen 'wir nun alles wieder gut. 
Nicht nur, daß wir alle Korrektu- 
ren und den zweiten Teil von 
Creepy” veröffentlichen. Nein: 
wir haben auch aufgeräumt und 


-Platz gemacht für einen um- 
fangreicheren Schneider-Teil. Der 


gesamte Textteil erscheint ab die- 
ser Ausgabe #-spaltig in etwas 
kleinerer Schrift. Auch .die Schnei- 
derlistings, die bisher ausge- 
sprochen sperrig waren, werden 
verkleinert abgedruckt. Der klei- 
ne Nachteil beim Einlesen wird 
100% durch die Erweiterung des 
Softwareangebots wettgemacht. 





Listing-Korrektur 
Combat 





870 ’ «#= ENTER YOLR NAME INTO HAML OF F 
AME = 
880 INK 0,0:INK 1,23 INK 2,6:PAPER 0:PEN 
1:MODE 1:CALL. &BBOS 

87G LOCATE 10,3: PRINT"you have resched o 
ne"sLOCATE B,S:PRINT"Of todays highest s 


nr rn nr nr rn 





cores"sPRINTrAF=""zBe=""eLOCATE 2,70 PRIN | 


T'"please enter yaur nane » {max 15 ehrs) 
":LOCATE 7,9: INPUTYN AR 

2700 IF LEN(ASI>IG THEN A&=LEFTFiAF,16):G 
0T0 719 

10 Nub 

220 IF SE>HISCINI AND N THEN N=N-1:60T0 
920 2 

730 N=N+1:VeNs FOR J=4 TO N STEP -1:HISCt 
JI=HISCtIT-13 a NAMES (1) =NAMESLI-LIENERT 
740 HISL {V) =5Cr NAMES (VI =A$:60T0 240 

950 ° a## EXPLOSION wer -— -_ 


Er nn m a nn a a er m ep Aa nn m num 


960 CAL %5100: BOSLUB 1260: POKE &3430,%9ı 








Wir : hoffen, die Schneiderfans 
werden uns unsere Bemühungen 
honorieren und nicht nur der 


POKE %33FE,&10:POKE AKSSFF,&10:POKE %SSFD 
‚&52: POKE &2FF9,SFF 

370 PDKE &33FL,%04MDVE B6X,GY:CALL &34901 
POKE &33FC,&50 . N 

Fe0 MOVE GX,BY=CALL &3400: PIKE &SSFR „AAO 
2MIVE GX,„GY 

790 CALL &34009:MDVE BX,EY=:G03UB 1010:POK 
E KISFF ,&C 

1000 POKE &33FE,&18:POKE &3430,&4:POKE & 
3IFE,&0: POKE &SIFD ,%40: RETURN 

1010 CALL %5100: TAG: MOVE GX,BY:FRINT“ * 


4=MOVE GX,6Y-16:PRINT" "5 


1020 TAGBFF: RETURN 
1030 ' ana ME INIT ne —— nn nen 





10409 TALL &5100:POKE KSIFF,AC:POKE ASSFE 
‚ıK19:PDKE &3450,&4 

1050 POKE &K33FC,%OsPOKE &FIFD,&40: RETURN 
1050 ” u» HALL UF FAME init. wma ——— 





»Compute mit” treu bleiben, son- x 
dern auch neue Leser für uns ge zum guten Niveau der Listings 
winnen und mit ihren Pro- beitragen. 


Programme 


grammeinsendungen weiterhin 


1070 RESTORE 10B01FÜOR N=1 TQ &ıREAD NANE 
#(N) «READ HISC{N) e NEXTı RETURN 

1089 DATA D.Kiessling,102509,I.Kiessling 
‚89000 ,H.Kiesst ing, 75500 

1090 DATA E,Kiesaling,56000,M.Kiesuling, 


42509 ,A.Kiessling 36750 


1190 DATA 254, 290,332,176,208, 136,666, 64 


&,100,100,70,300,90,210 


1110 DATA 30,50,500,360,110,150,300,90,& 


66,664, 100,100, 100,200, 100,300 


1120 DATA 56,50,500,380 ,300 300,200 ‚260, 
280,100, 250 ,87,45,343 564 „45, 70,200, 140 
«210,4,196 ee 

1130 DATA 10,390,30,350,50,320,70,290,90 
1250, 110,190, 170,100, 210,50, 100,200,300, 
230,566 ,666,200,210,260,274,330,140 

1140 DATA 320,212,34,143,87,239 340,395, 


600,70 ,450, 150,465, 666,170 ,230,400, 208,2 
84,310 





Creepy Teil 2 


Hier die Fortsetzung 
des Listing aus Heft 8. 


Auf der Programm- 
kassette 9 haben wir 


nochmal des komplette 
Spiel übernommen. 


1970 REN z#unk joystickabfrage / mm 
19806 REM ### anfang Spielschleife ur 


1990 j2=12:3y=5 

2000 ic=IBY 0) \ 

2010 IF jo AND 14 THEN 2070 

2020 IF jo AND 4 OR jo AND & THEN 2030 E 
LSE 2080 

2030 LOCATE jr ,JyıPRINT h$ 

2040 IF ia AND 4 THEN jx=j#-2 

2050 IF ip AND 8 THEN jxsjx+2 

2060 LOCATE jx,jy:PEN 1:PRINT #$ 

2070 GOTO 2090 

ZUVB0 LÜCAIE IxyyyiPFEN IıFRINT #5 

2099 IF jo AND 1& THEN 2490 

2100 IF j#<3 OR ix?27 THEN SDUND 1,350,1 
0,15:50UND 2,640,10,5,0,0,2:80T0 3050 
2110 REM xx#+x level 2-4 EIER EN} 
2120 IF &core=350 AND level=2 OR score=7 
00 AND level=3 OR score=1000 AND level=4 
THEN 2150 

2130 IF score=350 AND levei=1 OR score=7 
00 AND level=2 DR score=1000 AND level=3 
THEN GOSLUB Z110 

2140 IF level=Z OR level=5 DR level=-4 TH 
EN 2150 ELSE 2280 

2150 masdımy=171L0CATE ma,myz®EN S3:PRINT 
ECHR$ (241) 

2180 mb=l2ımy=1B: LOCATE mb,myz PRINT ECHR& 
241) 
2170 
241} 
2180 md=24:my=14sLUOCATE md,my=PRINT CHR$ 
(241) 

2190 IF ma=wx OR mb=wx OR mce=wx OR mie 
THEN wx=0:SOUND 1,1000,10,15:score=sscor 
e-50: LOCATE 33, 11:PRINT score: li=l1i+1s IF 
li=3 OR li=6 OR li=9 OR li=12 OR li=15 
THEN lives=slives-1:LOCATE 35,21:PEN 1:FR 
INT lives 

2200 IF level=3 THEN 2210 ELSE 2250 
2210 bg=INT<RND«S) +1. IF bg=Z THEN 2220 E 
LSE 2250 

2220 rx=30:ry=S:LICATE rx,ury:PEN Z:PRINT 
CHR$ (240) 5 

2250 IF INT{RND*10)+1=3. THEN 2240 ELSE 2 
250 

2240 rx=I0:ry=SıLOCATE ra ,ry: PRINT" "irx 
=39ıry=2 

2250 IF level=4 THEN 2240 ELSE 2280 


aceidsmy=19:L0CATE we,myiPRINT ECHRS$ 


9/86 


2260 IF INT{RND#7)+1=4 THEN 3210 ELSE 22 
80 

2270 IF ttx=3jx OR ttx=jx+1 THEN SOUND 1, 
30: 80UND 1,800: Lives=lives-1:LDCATE 35,2 
1:PEN 1:PRINF lives:tix=0 

2280 IF lives=0 TKEN 3080 

2290 IF scoare=1500 THEN GOSUB 3090 

2300 IF score=2000 THEN 3550 

2510 IF level=1. OR level=2 THEN rx=34ıry 
2Z2O a$=INKEYSıIF af=" ” THEN BOSUB 31509 
ELSE 2379 } 

2330 IF ggx+3>rx THEN bo=boti ELSE 2380 
2340 IF bo=5 OR bo=10, DR bo=15 GR bo=20 
THEN 2350 ELSE SOUND 1;1S:Score=score+r1d 
sLOCATE F3,11:PRINT seoreıGOTO 2340 
2350 FOR en=400 TO 40 STEP -20:S0UND 4,8 
n,8,04,2,1:2NEXT en:kives=livestisLOCATE 5 
S5,21=:PEN 1:PRINT lives 

23560 rx=30:ry=-SıLOCATE ri,ryaPRINF" "irx 
=3#ary=2:60T0 2380 

2370 REM *#Hte bewegung spinnen 
2380 u=INT (RND=B} +1 

2370 ON u GUTO 2400,2410,2420,2430,2440, 
2450 ,2450,2470 

2400 LÜCATE asx ‚asysPRINT" "sIF asy<9 T 
HEN 3050 ELSE asy-asy-1.5LGCATE ask „asy 
:PEN isPRINT k#:560TD 2000 

2410 LOCATE bsx ,bsy:PRINT" "LIEF bsy<? T 
HEN 3050 ELSE bsy=-bsy-1.5:LDCATE ber ,bsy 
:PEN 1:PRINT k#:60T0 2000 

2420 LOCATE esx,cesy:PRINT" "ılF cayS9 T 
HEN 3050 ELSE csy=csy-1,51LICATE ca ,csYy 
:PEN 1:PRINT K$:G0TH 2000 

2430 LOCATE dsx „dsyzPRINT" "IE desyi? T 
HEN 3050 ELSE dsy=dsy-1.55LOCATE dex„dsy 
ıPEN AzPRINT k$:G0T0 2000 

2440 LOCATE esx ,esy:PRINT" "IF asy<9 T 
HEN 3056 ELSE esyzesy-1,51L0CATE eu ,esy 
:PEN 1:PRINT k$+G60T0 2000 

2450 LOCATE Fax ,fsy:PRINT* "alf #syl9 T 
HEN 3050 ELSE fsy=fsy-1.5:L0CATE fox ,fsy 
ıPEN 1KPRINT k#ıG9TG 2000 

2460 LOGATE gsx ,gsyzPRINT" *rIF gsys9 T 
HEN 3059 ELSE gsy=gsy-1.S:ıLOCATE g95%,93Y 
sPEN 11PRINT k&:50T0 2000 ? 

2470 LOCATE hsaxshsysPRINT" "aIF hsyX9 T 
HEN 3050 ELSE hsyshsy-1.5:L0CATE hesk ,hsy 
:PEN 1:PRINT k$:G0T0 2000 

2420 REM ### blitz wehrstecken wi 
2490 ww=jxewy=jy+t3 

2500 LOCATE wr,wyıPEN 1:PRINT CHR$ (227) 
2510 IF wy<20 THEN wyany+i 

2520 IF wy>20 THEN 2540 . 

2530 IF wy<>2Q0 THEN 2500 ELSE. 2540 

2540 wr=ejxsuy=jiyts 

2550 LOCATE wx ‚wysPRINT" “ 

2560 IF wy<20 THEN nyewy+l 

2570 IF wy>20 THEN 2600 

2580 IF wy<>20 THEN 2550 ELSE 2400 


Ruh 


2590 REM sous treffer un. 
2600 IF wr=asx OR wx=asx+1 THEN 2700 
2610 IF we=bsx OR we=bex+l THEN 2730 
2620 IF we=csx OR wx=css+l. :THEN 2779 
26530 IF wx=dsx OR wu=gisz+i1 THEN 2810 
26540 IF wu=esx OR wx=esk+ti THEN 2850 
2450 IF wx=fsx OR we=#s4+1 THEN 2890 


GSompute mi 


2670 REM ##a4# neustart spinnen 


2920 LOLATE fsn,fsy: PRINT” 
=20:LOCATE #sx ,fsy:PRINT k$:80TD 2000 
2950 IF gsy=20 THEN BOSUB 3040 ELSE 2950 
2940 GRTU 29506 

2950 GOSUB 3050 

2960 LOCATE gsx ‚gsy: PRINT” 


2660 IF wx=gex OR wi=gen+l THEN 2930 


2470 IF wechsk OR nx=hsx+1 THEN 2779 ELG 
E 2380 


2680 REM Fette ER KER 
vr... 
2700 IF asy=20 THEN BUSUB 3046 ELSE 2710 
271 G0SUB 30930 


2720 LOCATE ası „asy: PRINT ” yagkmltasy= 


"204LOCATE aux „asysPRINT k$:G0T7D 2009 


2730 IF bsy=20 THEN BUOSUB 30409 ELSE 2759 
2740 G0T0 2789 

2750 G0SUB 3630 

2750 LOCATE bsk „bey: PRINT" "ıbsı=?:bey- 
20:LOCATE bsx,bsy:PRINT k$sB0T0 2000 
2770 IF csy=20 THEN GOSLUB 3040 ELSE 2770 
2780 GOTG 2800 

279% BÜOSUB 3030 

2800 LOCATE csr,csyePRINT" "Hıesz=idıcay 
=20:LOCATE car ,Esy3PRINT k$:G0T0 2900 
2810 IF dsy=2Z0 THEN EDOSUB 3049 ELSE 2830 
2620 GOTO 2849 

29359 GOSUR 3030 


2840 LOCATE dsx ydsy:PRIiNT" "ıdsz=1I:deay 


. =20:LOCATE dsx ‚dsyıPRINT K$:60T0 2000 ° 


2850 IF esy=209 THEN GRSUB 3040 ELSE 2870 
2040 GOTO 2890 A 

2870 SOSUB 3030 & 

2380 LOCATE es ,esy:PRINT" "resgeiätnny 
=20;LOCPTE aesy „esyıPRINT k$ıGUr0 2000 
2890 IF fsy=20 THEN GOSLUIB 3040 ELSE 2910 
2900 GS0TO 2720 

Z710 G05UB 3080 R 

Kfaxeldı sy 


egax=Pirgsy 
=20:LOCATE gex4+92y7PRINT k$:G0OTO 2000 
2970 IF hsy=20 THEN GUSUB 3040 ELSE 2990 
2980 BOTO 7009 
2790 GOSUB 3030 . 
3000 LBCATE hex,hayzPRINT® "ihsa=25chey 
=0:LGCATE hsx ‚heyıfRINT K6ıG0TO 2000 
S01Q0 REM ## ende splelschleife “uses: 
F020 REM ## score,level,lives,total ## 
030 FOR 1v=-35 TD 40: 50UND 2,1v,1,5:NEXT 
lv:scoresscore+ifö:LGCATE 33,111PRINT € 
ore: RETURN 5 
35040 SOUND 1, ?rscore=score-S0:LOCATE 55, 
11:PRINT scoresRETURN 


3050 lives=l1ives-11560UND 4,800,20,15,2,0 


ı 
3060 IF lives=0 THEN 3080 


30790 CLS:G0TG 1610 
3080 LGCATE 35,21: PRINT livesıSOUND 1,11 


00,590, 15ıSQUND 2,1110,500,13: SOUND 1,14 
00,400,0,13SOUND 2,1110,400,0,4 

3090 IF score>rtatal THEN total=score:L66 
ATE 33,61PRINT total 

3100 GOTO 3420 


5119 FÜR siei TU I+ieval:FOR so=30 TO 20 
STEP —i 


3120 SOUND 1,50,10, 15: NEXT 50,51 
3130 scare=sscore+50;:LOCATE 33,11:3PRINT 5 
coreslevel=level+t1ıLOCATE 35,14:PRINT le 


vel:RETURN 





Programıme 


3320 as=iNkEYE 
3530 IF ag=!"j” OR as="J" THEN GOTO 1550 
3540 GOTO 3520 


3550 REM une [27773 


- gewonnen 
3540 LOCATE asx ,asysPRINT" " 
3570 IF asy<Z0 THEN asy=asy+1 
3580 LOCATE ası,asyıPEN 1:PRINT k# 
3590 IF asy<20 THEN 3540 

3600 LOCATE bex ‚„beyı PRINT“. * 

35810 IF bsy<20 THEN bsy=bsy+l 

3620 LOCATE bsk,bsy:PRINT K# 
3430 IF bsy<20 THEN 3609 

3640 LOGATE es# „csy:PRINT". 

3450 IF csyf20 THEN esy-ckyrl 

3450 LOCATE csx ,‚csy:PRINT k# 

3670 IF csy<20 THEN S440 

3AB0 LICATE dar „dsysPRINT" .“ 

35% IF dsy<20 THEN dsy=dasy+i 

3700 LOICATE dass „dsy: PRINT k$ 

3710 IF dsy<20 THEN 3480 

3720 LOCATE aux „asy=:PRINT"  " 

:3730 IF eryi20 THEN esyresy+l 

3740 LOCATE as „esy=:FRINT K$ 

3750 IF esy<20 THEN 3720 

37E9 LOEATE fax ufsysPRINT" % 

3779 IF fsy<i20 THEN fsy=fsyrl 
‚3780 LOCATE fax ,fsy:PRINF k# 

37909 IF fsy<Z9 THEN S7&U0 

3800 LOCATE gsx ,gsysPRINT" " 

3310 IF gsy<20 THEN gsy=gsy#tlI ss 
7820 LUCATE gsx „gsy=PRINT KkF 

3830: IF gsy<20 THEN 3A00 

3849 LUGATE Hsr.hay:PRINT" 

3350 IF hsy<20 THEN hsyrhsy+i 

38409 LOLATE hax,hsysPRINT k& 

3870 IF h=y<20 THEN om 5 


3890 FÜR kk=1 TG 15 

3900 READ ku,lu,mu 

3910 SCNND 1,Kku,50,15 

3920 SOUND 2,1u,30,15 

2730 SDUND 4,10+1u+m1, 30,15 
3940 NEXT kk 

3950 SDUND 1,71,200,15 


.3960 SDUND 2,784,200,15 


3970 SOUND 4, 240,200, 15 
3980 DATA 119,479,30,106,426,27,95,379,2 
4,89,359,22,95,379,24,108 ‚426,27 ,95,379, 


' 24,89,359,22,95,379,24,106 ,426,27,95,379 


,24,87,358,22, 95,379,294,89,358,22,80,519 
T 

3999 FÜR hh=5 TO 27:FOR vv=8 TO 16 

4000 .LOCATE hhuvvePEN Z:ıPRINT CHR$ 1145} 
4010 NEXT vv,hh 

4020 LDCATE 5,9: PAPER 3 
Spinnen geben auf” 
4030 LOCATE B,12:PRINT*DU HAST GEWONNEN! 
u 

4099 LOBATE &,15;PRINT"Neustart 
ste<c" 

4050 ag=INKEY$:IF af=" " THEM RUN 
4040 BUTO 4059 

4070 REM #u### suüperbonus 


sPEN Q:PRINT"DIe 


Heerta 


EU 


4080 BORDER 14,0:FDR sb=49 TO 15 STEP u | 
SOUND 1,56,3,15:NEXT sbiscare=scare+200 
sLOCATE 38,112PEN 1:PRINT sconre:FOR bor= 
i 10 1500:NEXT bor:BDRDER F:RETURN 

F140 REM #* "schuss wehrstecken/spinne %*# 
3150 ggs#=ixtZeggy=iy 


" Ft50 LIGATE ggx ,ggysPEN 1:PRINT CHRF (242 


> 

3170 LICATE ggx,aay: PRINT" ® 
F180 IF ggx«I0 THEN ggx=ggi+l 
3170 IF 99x30 THEN RETURN 


3200 IF ggs{>30 THEN 3140 ELSE RETURN 

3210 tt=INTIRND#B) +1 

3220 ON tt BOSUR 3230, 3240,3250 

9,3280 ,3270,3309:68010 3310 

F250 tn=asııty=asy-1=:RETURN 

3240 tr=bsx:tyebsy- L1RETURN 

3250 ta=caxıty=csy-1:RETURN 

32680 tx=dseertyedsy-i3 RETURN 

3270 tr=eskıtysesy-1:RETURN 

3290 tx=fsxrky=fsy-izRETURN 

3290 tn=gen:ty=gsy-L:RETURN 

33500 txehsxzty=hsy-1:RETURN 

3310 tta=tnsttysty . 

3320 LOCATE ttx,tty:PEN 13FRINT CHR$(243 

’ 

3336 IF tty>7 THEN ttymtty-2 

3549 IF tty<7? THEN 3340 

3350 IF tty<>7 THEN 3320 ELSE 5360 

3360 ttx=tuıtty=ty : 

3370 LOCATE ttx ,ttyt PRINT" * 

3399 IF tty>7 THEN tty=ttyr2 

3399 IF tty<7 THEN 2270 

5400 IF tty<>7 THEN 3370 ELSE 2270 

Z410 REM GAME DVER We 

3420 FOR yy-1 TO 25 

3430 FOR xx=1 TO 31 

3440 LOCATE #k,yyıPEN S:PRINT CHR&(143) 

3450 NEXT xx,yy 

3460 FÜR za=1 TO S00:NEXT za 

3470 PAPER 3:PEN 0:LOCATE B,1T:PRINT"G A 
ME OVWER" 

3480 ORIGIN 355,340: DRAWR 420,0: DRAR D,- 

280: DRAUR —420,0:DRAUR 0,280 

349G FOR ende=1 TO 1000:NEXT ende 

F509 LECATE B,1S:PRINT STRINGS(18,CHRE(L 

za} 

3510 LICATE P,1I:PEN 1z:FRINTTNEUSTA 


1, 7280,577 





3980 BURDER 10,0 R T"sLOCATE 14,15: PRINT"> 3 < 
. . L LL—e ee Eurer giebt . = ’ 





CHECK Vi: PRUEFSUMMEN: 1670- tAB0: 78821 2530- 2540: 52507 3370- 3400: 31528 
B10- 6205 59402 1490- 1700: #021%7 2550- "2560: 443548 3410- 3420: . 25571 i 
ZEILEUNR.ı SUMMEN 830- 40: 32799 1719- 1720: 34594 2570- 25890: 25705 3430- 3440: 34214 " 
10- 20, 47608 B50- dadı 72734 1730- 1740: 16470 2590- 26500: 02427 3450- 3460: 23459 | 
S0- 40: 4590 870-. 880; 29173 1750- 1760; 255377 2410- 2820: 45925 3470- 3490: 59490 
Ss 41 1758 870- 900 30914 1770- 1790: 04219 2430- Zu40ı 42460 3479- 3509: 47192 f 
70- 680: 9965 919- #208 29941 17306- 1800: 58737 2550- 2460: 124933 3510- 3520: 51576 ü 
70- 10Q4 21801 I30- 940: 63406 1810- 1820: 10135 2570- 2480: 31055 3539- 3540: 30656 i 
110- 120: 15325 9350- 960: 21172 1930- 1849: 71767 2690- 2700: 588991 3350- 2560: 34055 t 
139- 149ı 13710 770- 980: 55831 1950- 1840: 95053 2710- 2720: 45335 3570- 3580: 57490 | 
130- 180: 37103 390- 1000: . 53497 1870- 18809: 15691 2730- 2740ı 26570 35909- 3409: 28975 h 
170- 120: 50511 10410- 1020: 34155 1890- 1700: 19329 2759- 27405 45607 3610- 3620: 42358 l 
190- 200: 25923 1039- 1040: 19045 1910- 19720r 13325 2770- 2780: 27734 3630- 3640: 25561 k 
210- 220: 28917 1050- 10601 #297 1930- 1740: 20977 2799- 2800: 48990 3650- Fbhbı 62424 ı 
230- 240: 12758 1070- 1080: 4903 i950- 1960: 67220 2810- 2820: 21509 3570- 3480: 26224 N 
250- 2Z&a0s 37177 1099- 1100: 7581 1970- 1980: 75658 2830- 2840: 49257 3690- 3700: 62474 j 
270- 280: 49337 1116- 3120: 35479 1996- 2000: 18180 2950- 2840: 22675 5710- 3720; 26991 k 
290- 309 13712 1130- 1140 52444 2010- 2020, 49870 2870- 2889: 49534 3730- 3740: 62562 N 
3109- 3201 39520 4150- 1160: 49204 2030- 2040: 30554 20970- 2900: 23841 3750- 3760: 27554 
330- 3401 47748 1179- 1140: 70289 2050- 20491 55304 2910- 2920: 49811 3770- 3790: 62430: 
350- 3403 49433 1170- 1200r 73111 2070- 2080: 209320 2730- 2940: 25007 3790- 3800: 28221 
370- 38201 27500 1210- 1220: 7&444 2090- 21001 44537 2950- 2760: S004B 3810- 3820: 62478 | 
* 790- 400: 48865 1230- 12409: 94977 2110- 2120: 51157 2970- 2980: 26173 3830- 3840: 2RBU6 
410- 4203 65214 1250- 1240: F@30& 2130- 2140: 858351 2970- 3000: 50565 3850- 3840: 62746 h 
430-. 4401 51297 i270- 1280: 58904 2150- 2160: 7541 3010- 3020: 76281 3970- 3840: 10601 1 
450- 4603 45383 1290- 1300: 28818 2170- 2180: 557 3030- 3090: 64984 S870- 39003 22651 f 
470-. 4801 52969 41310- 1320 15008 2190- 2200: 46770 3050- 30401 32617 3910- 39201 11557 | 
4909- 500: 1B183 1350- 13401 2755 2210- 2220: 4$150 5070- 3080: 25555 3930- 3940: 72547 
510- 520: 34481 13350- 1540: 36144 2250- 2240: 70697 H 3090- 3100: #729 3950- 3980: 9469 
530- 540: 61557 1370- 13B0s 42341 2250- 2240: 55412 \ 3110- 3120: 41175 3970- 3780: 21979 
30- 5401 Ablüs 1390- 14001 26229 2270- 2280: 49472 3130- 31401107290 3990- 4000: 57695 
s70- 4580: 19745 1410- 14201 34014 2290- 2300: 44748 F150- 3150: 69401 4010- 40201 H4194 
570- #00: 87710 1439- 1440: 81015 2310- 2320: 55120 3170- 3180: 57942 4030- 4049: 65180 
610- 4201 48596 1450- 14401 18950 2330- 2340: 113134 3190- 3200: 31174 4050- 4060: 23787 
630- 6401 45144 1476- 1480: 39658 2350- 2340: 92822 321d- 3220: 33117 AN7O- 40B0: 26025 
650- dabdı 74288 3490- 15001 22939 2370-- 2310: 46477 3230- 3240: 87535 EEE RENTE EEE ae a 
670- 680: 31I4& 1510- 1520: 13915 2370- 24001 46208 3250- 5260: 87667 BESAMTCHECKSUMMEr 39352 
690- 700: 34982 15370- 15401 &7285 2410- 24202 931 3270- 3280: 87799 
710- 720: 20643 1550- 1560: 9195 Za30- 2440: 2095 3290- 3300: 87951 | 
730- 740: 60057 1570- 15403. 13224 2450- 2460: 3259 3310- 3520: 65522 ! 
750- 760: 535223 1590- 1400: 45274 2470- 2480: 34143 3330- 3340: 51646 
770- 740: 63248 1510- 1420: 32397 2470- 2500: 60444 3330- 33a) 48678 
790- BO00ı 69847 1430- 1640: 35718 2510- 2520: 46431 3370- 33403 57767 | 
1550- 1460: 29290 










Für 16/116/plus 4: Der Super- u 
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Es muß nicht immer gleich eine 
riesige Textverarbeitung sein, 
wenn man Briefe schreiben will. 
Das vorliegende Programm ist 
ausdrücklich für die private Brief- 
post konzipiert. 


Nach dem Starten des Program- 
mes erscheint das Absenderfeld 
des Briefes auf dem Bildschirm 
und rechts oben der Wohnort mit. 
dem Cursor. Dort muß nun 

jeweilige Absendedatum eingege- 
ben werden. Danach gelangt marı 
mit (RETURN) in das Adressen- 
feld. Dort gibt man nun die 
Adresse aus, wie sie auf dem Brief 
ausgedruckt werden soll. Ist 

Adressenfeld fertig erstellt, drückt 
man (COPY) und man befindet 
sich in der Betreffzeile. Har man 









dort sein Anliegen in Kurzform 


eingegeben, gelangt man wieder- 
um mit (COPY) ın den.eigentli- 
chen Textteil des Briefes. Dabei 
wird oben am Bildschirmrand an- 
gezeigt, auf welcher Seite man 
schreibt, in welcher Zeile man auf 
der aktuellen Seite schreibt und 
wieviele Variablen noch für den 
Text zu verfügung stehen. 


Ist man mit dem Schreiben fertig, 
kann man den Brief ausdrucken 


lassen, wenn man zweimal auf die 
(COPY)-Taste drückt. 


Jetzt wird der Drucker einge 
schalter und ein Einzelblatt mög- 
lichst weit oben eingespannt (in 


programme 


Briefeschreiben leicht gemacht 


International-Formal- 
Letter (IFL) für 
Schneider-Computer 


fenster und der kleingedruckte 
Absender am oberen Rand des 


Sichtfensters erscheinen. Even- 
. twell muß die richtige Blartein- 


spannung ausprobiert werden. 


Nach einlegen des Blattes wird 
der Drucker on-line geschalter. 
Nun erscheint auf dem Bild- 
schirm die Wahl der Schriftquali- 
täten. 1 ergibt Near Letter Quali- 
ty und 2 Standardqualität (meist 
nur für Kopien). Danach wi 
man wieder aufgefordert zu wäh- 
len: 1- proportional ein und 2 für 
proportional aus. Danach beginnt 
der Druckvorgang. 


Bei längeren Briefen wird der 
Druckvorgang unterbrochen, um 
dem And Gelegenheit zu 
geben, neues Papier einzulegen. 
Anschließend kann der Brief 
nochmal ausgedruckt werden. 
Wird die Frage mit N(ein) beant- 
wortet, ist das Programm been- 
det. Nach jeweils 1/3 der Seite 
wird ein kleiner Strich an den lin- 
ken Rand gedruckt, An dieser 
Stelle muß der Brief geknickt 
werden, soll die Adresse genau in 
das Sichtfenster eines DIN- Um- 
schlages passen, 


- Mit der DEL-Taste rückt der 
Cursor nach links und über- 
'schreibt den zuletzgeschriebe- 
nen Buchstaben. 


Ist in einer vorhergehenden Zei- 
le, wird der Cursor nach oben 
bewegt und auf das nächstlie- 
gende Space: gestellt. Wie in 1 
beschrieben wird nun das feh- 
lerhafte Wort DELeted und neu 
geschrieben. Danach muß der 
Cursor wieder auf dem SPACE 
stehen. Jetzt muß die Korrektur 
noch mit der Pfeiltaste nach 
rechts abgeschlossen werden. 


Eingabehinweise 
Um das Programm den jeweils 
vorligeneden Bedingungen anzu- 
passen, muß folgendes 
werden: In den Zeilen 80-260 
werden den y${1) - y$(19) die ver- 
iedenen Druckercodes zu, 
wiesen. Das Programm ist für den 
STAR SG-10 eingerichtet. Besitzt 
man einen anderen Drucker, 
müssen hier die entsprechenden 
Codes eingegeben werden. Die 
Bedeutung der jeweiligen Varia 
blen ist in den REM-Zeilen ver- 
merkt. 


10 : 

20 REM RREIERM IFL A 

30 REN #e#zeteer by Frank Simon wann 
07 


40 x 
30 MODE 1:L0OCATE 15,12:PRINF"BITTE WARTE 
A 


Drucker — Codes einge 


&0 REM erienm 

ben vrkrmerunne 

70 DIM »#t4)1DIM y#i19) 

80 ySlL)SCHR$I(27)+"7VHCHRE 2} RE ' 
M ** Deutschen Druckersatz aufrufen ## 
70 YELZISCHRELZII HR" ıRE 
M «* Drucker-Reset oder NLQO aussch. ## 
199 YELFIECHRS ZI Hp" +SCHRE LI ıRE 
M ## Proportional - Drucken einsch. ## 
110 yE(4) SCHRFL(ZII HB" +CHRELS) ‚RE 
M ## Schoenschrift {NLD) einschalt, #* 
120 yE 15) =CHRFLZTI+HHM"+CHRELS) RE 


M #* Linke Druckergrenze auf G Stil. = 
130 y$(&} =CHRE (27) 4" D"+CHRECASI+CHRSCOIT 
REM# Täbulator auf Steile 45 setzen »# 


LEO YELNSCHRFEIRTIRA ® 


M ## Revers-Druck t Itslic) einsch. ## 
170 y&t10)=SCHR$ (27) +*5" «RE 
M “* Revers-Druck ( Itslic) aussch. ®# 
180 yStil) =CHR$ 127) +"B’+CHRE (2) ıRE 
M “we 12 characters pro Inch (Elite) 
190 y£t12)SCHREI27I +" BP HCHRE (3) RE 
M #+ 17 characters/inch (Condensed? Am 
200 y#t1S)=CHRSE (27) #"BY+CHRS (CL) sRE 


M *# 10 characters pro Inch { Pica) ## 
210 y&sti4)=CHR$ (9) ıRE 
M #*# Naechste Tabulator-St.aufrufen ##+ 
220 y#t15)=CHR$ (27) +"8"+CHR$ (0) h »:RE 
"* ** Superscribt (Hachschrift3einsch. ## 
230 YStlö)SCHRE (27 HT: =: »RE 
M ## Superscribt (Hochschrirft)aussch. 
240 y£tl )=SCHRE (27) +" +CHRE CL} RE 


Geompube mib 


der Regel befindet sich die obere In den Zeilen 290-320 muß man 
Blattkante 2-3 cm über dem Während des Schreibens hat man nun nur die eigenen Daten 
Druckkopf). Im Endergebnis soll folgende Korrekturmöglich- für Name, Straße, Wohnort und 
das Adressenfeld genau im Sicht- keiten: Telefon eingeben. 
140 yEL7) SCHRE ZI HD HCHRECLI sReE | AM #*+ Interstreich-Madus einschalten ## 
M ** Breitschrift (Expanded) einsch. ## 250 y$ti1OI=CHRE (27) +" -"HCHRF 0) tRE 
150 y$ (8) =CHR$ (27) +" W"+CHRE (0) . » sRE | M ##+ Interstreich-Hodus ausschalten #+ 
Mm #+ Breitschrift (Expanded) aussch. #* 240 yS{19SCHRS (27) 8" MACHRS (1) ERE 


HM #** Linke Druckergrenze auf 1 Stil. #** 

270 3 

289 REM HER 

ben in 2 2 2 2 2 2 2 

290 n${1)="Dr. Wolfgang Simon" 

300 x3 (2)="Paggenburg 7" 

310 xn$i3)="451& Bissendaorf” 

320 x$i4)m"Tel.s 05402 / 4667" 

340 DEFSTR atDIM a{5090):POKE 300,1: PDOKE 
Z01,1F7:PUOKE 299,0 

350 SYNBOL AFTER $2 - 

340 5YMBOL 64,50,96,60,102,60,6,50,0 | 
370 SYMBOL 91,178,16,56,109,170,254,198, 


Eigenen Nasen einge 


o 
380 SYMBOL 92,102,56,100,178, 179,108 ,56. 
o 


51 


programme. 


390 SYMBOL. 93,102,0,102,102,102,102,60,0 
300 EYMBOL 123,108,0,120,12,124,204,118, 
o 

410 SYMBOL 124,102,0,640,102,102,102,60,0 
420 SYMBOL 125,102,0,102,102,102,102,59, 
Qo 

450 SYMBOL 126, 120,179,199,292,199,198,2 
43,192 

430 FOR rı=j TO 18:1READ d,b,cıKEY DEF d,1 
„b,cıNEXTIMODE 2 

4590 MTA 16,65,63,71,121,59,39,44,57, 31. 
45,59,30,45,95,22,60,62,29,124,92,28,125 
+71,17,33,39,43,122,90,26,125,95,17,43,4 
2,57,51,64,56,52,36,41,55,47,32,49,61,25 


INT CHR$«B) 5 :i=i-11MDVER O,+15:MIVE (VAL 
{RIGHTS (ati) ,2)7%8-#) ‚VPOS:DRAHR 8,0,116 
OT 840 
780 IF ati}=CHR#(127) THEN i=si-1:PRINT & 
HRS) :SPRINT" “;:PRINT CHRE(A) L=MOVER - 
B,0:DRAUR 8,0,0.MOVER -16,0sDRARR 8,0,1:3 
GDTO 900 
790 IF ati)eCHitEl224) THEN GOTD 1030 
800 IF ati)=CHR$(243) THEN at1)=" "7B0T0 
79 
@1G IF ati)=CHRF(13) THEN ati)=ati)+ETRE 
POS (#0) 1 PRINTEIF YPOE>20 THEN MOVER -8 
„OrDRAWR B,0,03MOVER O,-16:NDVER —(XPOS+ 
t) „O:DRAWR 8,0,118070 450 ELSE. HOVER -B, 


1100 CL5 

3110 FOKE 299 ,1rWINDOH #2,1,80,1,23PRINT 
#2,Beiter uuuenumunnunnnZeileE onaares 

....Freie Variablens "3:WINDON 1,90,35,2 

SEPRINT #0,STRING$E (77, CHRFC154) ) : WIND 

1,90,4,25: PükE 298, 1:G05UR 670 

112G LOCATE 1,2:N0VE 1,320: DRAWR 9,0,1 


1130 6070 450 

1140 REM mania Drucken een 
1150 bI=InKEYS: IF b$="* THEN 1150 ELSE I 
F b9I-CHR$1224) THEN EDTO 1180 ELBE grgri 
»B0TO0 740 

160 MODE 1:b=0:n=0 


,126,63,24,94,96 O:DRAHR 8,0,0:PRINT" "zaPRINT CHRFLO);SM 1170 PRINT 28, yStZ)3y$&6i)g 

A460 3 DVE 1,13DRAHR 9,0,1160T0 650 1180 LDCATE 8,9:FRINT CHR#&(24) 5 1PRINT” 1 
470 ı E20 MIVER -8,0:PRAUR 8,0,01DRAWR B,0,1:P "zaPRINT CHR$(24)53PRINT" Wear letter 
260 RER ta HHHHHHHE Datum HH RINT ati)3:GUTO 730 quality“ 

ARSuRRaResHReRe 630 : 1190 LOCATE 8,123PRINT CHRSIZ3) 5: PRINT? 
490 u 840 IF PEEK(Z#9)=D THEN 900 ELSE PIKE 350 2 "3sPRINT CHREIZM;:PRINT" Standard q 


500 LOCATE 1,1: PRINT x#12) 
519 PRINT x#12) 
520 PRINT x#15} 
530 PRINT x#(4) 


1,PEEK (301) -1ı IF PEEK (301) /50=-PEEK I3JOL1)N 
s0 THEN POKE 300,PEEKI300)7-11PUKE 301,47 


850 POKE 299,1:G09B 670 


uazity" 

1200 z4=INKEY$: IF z$="7 THEN 1200 

1210 cL8 

1220 LOCATE 9,12: PRINT"Proportional eint 


540 LOCATE 50,43 PRINT RIGEHTF (n$i3) „LENIH 880 : 7" 

#IB)ı-33;5", den "gr 870 ı 1230 LGEATE 8,14: PRINT"oder aust2)” 

350 MOVE (LEN Ix#(3))+50) 0,3841 DRAWR 9,0 880 REM ek Delete ann 1240 dsmINKEYS:IF ds="" THEN 1249 

‚1 EEE RE NT DIT 1250 PRINT #8, yS(I) 5 yFtiö)5yS(PyySi9);yS 
540 MHILE afi)<>CHRSL1S) 8% ı 115 


370 i-i+1 

580 atl)=INKEYSıIF ali)="" THEN SEO 

3% IF atiy=CHRFLI27) THEN i=mi-LıPRINT C 
HRS(OI HI PRINT" ";:PRINT CHRS (CO) yEcMOVER - 
8,0:DRAUR 8,0,0:MOVER -15,0: DRAWUR 9,0,13 
GOTO 589 

600 NOVER -8,0: DRAWR 8,0,01DRAWR B,0,1:3P 
RINT ati)j3sWEND 

&10 NOVER -8,0:DRAKR B,0,0 
#20 LOCATE 1,8: zRi=30 r 
630 PRINT x#t1)y”". "zart". "ERECHh 
&40 LOCATE 1,10:MGOVE 1,240:DRAKHR 9,0,1 
&50 IF PEEK(299)=Q0 THEN EOTD 730 


700 b$=INKEYS: IF b$="" THEN 900 

MO IF bES>CHREL24T) AND bISDCHREILZ?I T 
HEN ati)=bs:60T0 750 

929 IF bE=-CHRF (243) THEN 970 

730 IF LEFTS(ati-1) ,1)=CHRS (13) THEN DRA 
WR -8,0,0:PRINT CHRE(11) 33 LOCATELVALIRIG 
HI$(ati-1) 239), (VPOSCHOII=FRINT ” “4:PR 
INT CHRStB)53i=i-13MDVER O,+161MIVE VAL 
tRIBHTS (Al) ,2)3#B-9) ‚YPOSIDRAKR 9,0,1:68 
oTO 839 

940 i=j-13PRINT EHR$(8) PRINT ” "4:PRIN 
T CHR£ (GB) 3 ıMOVER -8,0:1DRAKR 9,0,0:MDVER 

16,0: DRAHR 9,0,11G0T0 900 


1260 PRINT 8,5815 

1270 PRINT RR,ySi@);yStio)systizigystiä) 
;SRIGHTECRF IS) JLENGECHII-5I 50, den "3 
1280 b<b+1 

1290 IF aib)=CHRS{13) THEN GOTO 1320 
3300 PRINT #8,5(b); = 
1310 E0TO 1280 

1320 PRINT #8 

AS35O PRINT #8,y$114)4x812) 

1349 PRINT #8,y# 1143 1x$13) 

1350 PRINT #B,y#(19) 5uF(#) 

1360 PRINT 88, yEt123 1 y$t1D ayEL17);”. 
lt. "Ersldan. Pauslh 


6650 POKE 301 ,PEEK(S01)+1: IF PEEKISOL/S0 90 2 1370 PRINT #9,y$(1&)y ySti1d}5yHt13) 
SPEEK (301?50 THEN POKE 300,PEEK(300)+11 920 REM wraemineiee Wiederholen ser 1380 IF z#e"1THEN PRINT #9,y8(; 
POKE 301,1 ARE 1390 IF d$="1" THEN PRINT #8,y#(3)5 


670 LOCATE #2, 1,13 PRINT W2,"........ 7PE 
EKIZOOI Y "au nnnnnanannn nenn nn "IPEEK 130134 


"uunurnannnoannsauranneeanre na  HOOOT-I 
6809 IF PEEK(299)=1 THEN: POKE 298,0:RETUR 
N 


5 2 

700 ı 

710 REM HH 
FEREFFRTRENTIHENE 


970 IF LEFT#taci) ,L)=CHRECLE) THEM PRINT 
=MOVER —8,0:DRAWR 0,0,0: IF YPOS>20 THEN 

MDVER 0,-15:MOVER - {XPOS+1) „O:DRAWR B,0, 
1:POKE 299,1:1IF PEEK{299W)=1 THEN GOSUB & 
50:8010 970 ELSE 390 ELSE PRINT " *y:PRI 
NT CHRS{B) 4: MOVE 1,1:DRAWR 8,0,1:60T0 97 
o 


780 MOVER -8,01DRAWR 8,0,0:DRAWR 8,0,1:P 
RINT ati); 
950 iei+1: IF ati)=CHR$L127) THEN 740 ELS 


1400 b=b+1 
1410 IF sib)=CHR#$ (224) THEN PRINT A8ı 60T 


DO 19440 


1420 IF LEFT#(a lb} ,„IJ=CHRFL13) THEN PRIN 
T #8:h=h+1:160T0 1400 

1430 PRINT #B,a1b)3:60T0 1409 

1440 j=i+l 

1450 ON ji GOTO 1450,1480,1490 

1450 A=9-hıFOR i=j TO huPRINT #O:NERF 
1470 PRINT #8,y#<19) 1 3PRINT #8, °-"3:PRIN 


720 ı E 970 T #8, ys (5); 1=0sGOTO 1400 
- 730 fai+1 1000 : 1480 h=S-hıFOR i=1 TO hıPRINT #8:NEXT:GD 
740 ati)=INKEYSAIF ati)="" THEN 740 1010 REN wrmerenruun Bildschirmauf TO 1400 
750 IF POS{i40)>zei THEN IF POS(#0)=zeit? teilun PER T TE RT OT 729 1470 PRINT #9:PRINT #E:CL5 
AND atiı<>CHRFLLZ27) AND ati)<>"—” AND a 1020 : 1500 LOCATE 30,104 PRINT"Boll der Brief n 
(I<ICHRELS) THEN GOTO 740 ELSE SOUND 1039 g=g+1 achsals“ 
1,100,4,15 1049 ON g GOTO 1050,1100,1150 1510 LDOCATE 35,122 PRINT"gedruckt werden 


7460 IF ati)=CHR#L127) THEN GDTN 770 ELSE 
Sorg 7% 

770 IF LEFT£(ati-1) ,I)=CHRE(13) THEN DRA 
UR -8,0,0: PRINT CHR# 11) 3: LOCATE VAL (RIB 
HTSIati-13 5293 u (VPOBIEO) IEPRINT * "3:PR 


1050 DRAHR -8,0,0 

1060 zei=5s 

1070 LDEATE 1,20 

1080 MOVE 1,80:DRAHUR 8,0,1 
1090 EDTO 850 


j/nd* 

1520 z$>INKEYSı IF z$="" THEN 1520 

1530 IF z6=*j" OR zs="J" THEN CLS:h=0:n= 
Q:b=04 J=0:2$="":80T0 1179 ELSE 1540 
1549 END 


40283 


CHECK Vi 1 PRUEFSUMMENS 290=- 300: 37548 450=- #d0ı 970- 9801 45615 1310- 13203 459 
310- 3201 47926 650- 6601 22365 770- 10001 7739 1330- 1340: 23050 
ZEILENNR.ı BUNMMEN 330- 340: ISbth s70- s#E0: 44622 1016—- 1020: 289797 4350- 1360: 42995 
10- 29: 18078 350- 340: 19853 690- 700n 2 1030- 1040: 163649 1379- 13801 43939 
30- 401 41823 S7r9- Idı 49700 719- 7201 53249 1950- 10801 5469 13990- 14001 277585 
So 60: 34757 390- 400: 37952 ‚739- 7401 36015 1070- 1080: 4498 1410 14201 63571 
70- 80, 15981 410- 4201 34719 730- 760: 41514 10990- 1190: 750, 1430—- 1440: 21027 
79- 1001 96147 430- #401 FLO 779- 7804 22983 1110- 11205 17108 1450- 1450: 537773 
110=- 1201 93177 450- 460: 537143 770- 00: 92171 1139- 11401 26291 1470- 1480: 62654 
130- 1401113207 470- 4991 48169 810- 820: S1030 1130- 1150: 57475 1490- 150601 34064 
130- 1401 73499 490- 3500: 6137 850- 989401 53999 1170- 1180: 12457 1910- 1520: 55329 
170- 180: 78531 S10- 5201 4939 2m- GEu0ı 492 1190- 1200: 70256 1530- 15401 47541 
190- 2001 834358 30- 3401 44334 870*- 880: S10B1 4210- 1220: 34720 BETEN KURS, 
210-r 2201 40292 550- 356501 43035 890- 900: 215351 1230- 1240: 39296 BESAMTCHECKSIMME: 17532 
230- 24013 43 370- 3809: 31375 310- 9201 34654 1250- 1260: 59852 
230- 2403 495861 590- 3001101498 730- 940: 37869 1270- 1280: 48483 
270=- 280: 10535 610- 8201 13772 - 9401 3255 1290- 1300: 32216 


„wie wär's denn jetzt mit einer Brieffreundin? 


Compute mit 3186 


|; 










N 
KERN 
N 


NN 





\. 
\ 
N 


: 






306 !rrıneankonanosannr en nun aan ne 


aaa >“ FRUTTY MAN 20 
120 Yrrrerreee tree tie raue rnnaranasneen 
isa * 

190 Tirereermonnennuesnenrareromestnrene 
150 °’"" by Andreas Leicht 
am "+ copyright 19706 Re 
170 “Peerersoreratnere ar ersarsuerneerseer 
180 ” 


170 ’...Neue Zeichen... 

200 SYMBOL AFTER 90 

219 SYMBOL 91,09,0,125,195,129,127,195, 12 
& 

220 SYMBOL #2,0,0,0,0,0,3568,24,0 

230 SYMBOL 73,0,0,0,354,0,0,0,0 

240 SYHNBIHL 94,0,35,0,0,0,0,0,0 

250 SYMBH. 95,72,0,0,0,0,0,0,0 

250 SYMBOL. 75,18,0,0,0,0,0,0,0 

270 SYMBOL 77,56,124,714,254,198,196,254 
‚170 

280 SYMERL 78,09,0,40,0,0,0,0,0 

290 EYMEOL #7,0,0,0,0,56,68,0,0 . 

300 BYMBN- 100,255,66,66,165,255,9,0,0 
310 SYMBOL 101,0,0,60,125,118,110,12&,40 
320 SYMBDL 102,6,8,0,0,0,0,0,0 

350 SYMBOL 195,126, 66,125, 65,125,46,126, 


340 ’...Farben definieren... 

350 INK 0,0:INk 1,12:INK 2,4: INK 3,28,51 
INK 4,155 INK 5,0,152: INK &,15,0: INK 7,23: 
INK 8, 13:ink 9,26,01 INK 10,11=1INK 11,321 
NK 12,9: INK 13,20 

360 MODE 9:BORDER O1PAPER Q 

370 "..„Variablen definieren... 

530 DIM ra(29,75} 

390 ani$#=CHR3 122) +CHR# (1) EL an2E=CHRF 1227 + 
EHRE CH 

400 E0TO 1520 

410 lev=Qıhsceect 5c=0: masdı gs=0.5 

420 *., „Haubtprogram.- - 

430 lev=lev+liIFf lev=5 THEN lavai 

440 ON Lew BOSUB 1450,1910,2230,2310 
450 jeJ0Y (0): BüSLB 520 

460 IF j=0 THEN 8070 450 

479 IF j=4 THEN BISUB 580:6DSUB 520 

480 IF j=1 AND ratı,y)3=5 THEN GOSUB 790: 
G0SUB 520 

490 IF j=9 THEN GUSUB 480:G0OSUB 520 

500 IF j=2 AND ralx,y+1)=5 THEN G0SUB 83 
0:605UB 520 

510 GOTO 450 

520 *...Beawagung Manster,.. 

550 IF gy?y THEN GDSUB 1070 

540 IF uy<y THEN GOBLUB 880 

550 IF gu<x THEN GOSUB 940 

Sat IF gu>x THEN BOSUB 1150 

570 RETURN 

580 "„..figur links... 

SI0 nuexı yyayızzarıl 

600 IF x<=i THEN z=1 

810 IF ratx,y)=4 THEN x&t+t13RETURN 

620 IF ralka,vy)=5 THEN PEN IS:ILOCATE %x 


programme 
Fallen Sie nicht auf die Nase! 


FRUTTY MAN | 








für Schneider CPC 


Mit Frutty Man veröffentlichen auch die Gerüstarbeiter im echten 
wir ein Gerüst-und Sammelspiel, Leben, müssen auch $ie aufpas- 
Sammeln Sie alle auf dem Gerüst sen, daß Sie nicht übertreten und 
liegenden Gegenstände ein. Doch vom Gerüst fallen. Der anschlie 
Vorsicht ! Ein Monster verfolgt Sende Aufprall läßt das ganze Ge- 
Sie ! Weichen Sie Ihm geschickt rüst erschüttern. Also dann, Hals- 
aus und sammelm sie alle Gegen- 


stände. Noch eine Warnung ! Wie 


und Beinbruch! 


‚Yyr PRINT CHR$(103):G0T0 &50 

630 IF rain,y)=10 THEN ratk,y)=0:50S0B 1 
240 

&40 LOCATE xr,yy=PRINT" * 

650 GOSUB 2760 

550 IF ralix„ytl)=0 THEN GOFO 1310 

670 RETURN 

680 'ı. «Figur rechts... 

E70 xuersyyayıaırl 

700 IF x>=20 THEN x=206 

710 IF ratx,y)=4 THEN x=r—-1: RETURN 

726 IF raixx,yy}=5 THEN PEN 13t4L0CATE 8% 
‚yysPRINT CHREST1OSI:G0OTO 750 

73G IF ratx ,y!=10 THEN rais,y)=0:60SUB 1 
2809 . 

740 LOCATE xx ,yy=PRINT" * 

750 GUSUB 2789 

7&0 IF ratz„y+1)=0 THEN 6010 1310 

770 RETURN 

740 ’...Figur hoch...» 

FI Ka=Hiyyayıyay-l 

800 IF raix,y)=D0 THEN yay 

810 PEN 13:L0CATE xx,yy:PRINT CHRS105) 

820 E0SUB 2740: RETUAN 

850 “.„„Figur runter... 

BAD xzamnryyayıyayHi 5 R R 

850 IF ralxx,yy}=0 THEN LOEATE xx ,yy:PRI 
NT" ":GDTO 879 

8&0 PEN 13:LOCATE xx ,yy:PRINT EHRFLLOS) 


870 GOSUB 2760: RETURN 

880 ‘...Monster runter... 

890 IF ratge,gy+1)<>5 THEN RETURN 

700 gas=grzggy=gy:gy=gytgssSOlnD 2,284,1 
O,15,1,1 28 
710 IF rafggx,ggy)=0 THEN LOCATE 99x ,08Y 
PRINT" "ıGOTO 950 

920 PEN 131LUCATE 99x ‚B9yYıPRINF CHR$(LOS 


’ 

730 GOSUB 2870 

240 IF ge AND ay=y THEN GOTO 1510 

750 RETURN 

740 *„. „Monster rechts... 

970 ggN=gxsggy=gyigk=gatgs: SOUND 2,284, 1 
0,15,1,1 

980 IF. gx>=20 THEN gx=20 

399 IF ratlgs,gyti}=O THEN gx=9x"gstRETUR 


N 
1000 IF ralgx,gy)=4 THEN gt=gr-983 RETURN 


1010 IF ralggx ,ggy’=5 THEN PEN 135: LOLATE 
99x ,9gy:PRINT CHR$195) :60T0 1040 

1020 IF ralgx,gy)=10 THEN gx=gx+i1:3LDCATE 
99x ,g9g9y:PRINT” *:G0SUB 2870 ; 
1050 LOCATE ggx,ggyı PRINT" * 

1040 GOSUB 2870 

1050 IF gx=x AND gy=y THEN SDTO 1410 
10960 RETURN 

1070 "...Monster hoch... 

1690 IF ratgx,ay)«>5 THEN RETURN 

31079 ggx=gx:ggy=gysgysgy-us:S0UND 2,204, 
10,15,1,1 

1106 IF ratgı ,gy)=0. THEN gy=gy 


GCompufe mik 


1110 PEN 13:LOCATE ggx ‚guy: PRINT CHRSUO 


E39) 

1120 605UB 2870 

1130 IF gx=« AND oy-y THEN GOTO 1410 
1146 RETURN 

1150 "...Monster links... 

1150 ggx=Zgaxn:ggy=-gy:gx=-9r-93:S0LND 2,284, 
10,15,12,1 

1170 IF gs<=1 THEN ox=t 3 
1180 IF ratgx ‚gy+1)=0 THEN 9x=gx+gs:RETU 
RN 

1190 IF rafgx,gy)=4 THEN ge=gx+gs: RETURN 


1200 IF ra(gyx ‚guy)=5 THEN PEN 13:LÜCATE 
49% ,gqgy:PRINT CHRF{10S) 560TO 41239 

1210 IF rafgx,gy)=109 THEN gx=gxri:3LOCATE 
ggxX „99y: PRINT" "zsE0SUB 2870 

1220 LÜCATE gux „ggyaPRINT” " 

1230 GOSUS 2870 

1240 IF ge=x AND gy=y THEN SOTO 1810 
1250 RETURN 

1250 '...Frucht geingesamselt... 

1270 ENV 1,100,2,2,1,1,14ENT 1,100,-2,2: 

SOUND 1,284,200,1,1,1 

1280 sre=sc+l: IF sc}hse THEN hscsse 

1290 frusfru+iıIf frurfrs THEN GUSUB 440 
:G0SUB 27009r WINDOWE2,2,19,8,12:PAPER#2,E 
:CL5#2: LOCATE#2,2 , 3 PENW2, 111 PRINT#2,"LE 
VEL"gj1evy "’GESCHAFT":FOR quasi 10 5000: NE 
XT: sc#sc#+tSchsc=sc:80T0 420 

1300 ECOSUB 2700: RETURN 

1510 ’...Figur abgestuerzt... 

1320 xxex:yySysyayıl 

1330 IF raix,y)>0 THEN OUT &BC00,8:10U7 & 
BDOO,I:FÜR que=? TO 9 STEP -I:SDUND 4,0, 
1,qwe,4,0,311NEXTIPEN Z3LOCATE xu,yy+1:P 

RINT EHR$ (239) ı FOR que=i1 TO 20rL0EATE xx 
„yy:PRINT”" PLLDEATE uu„yy+riıPRINT” "ıNER 

TeQUT &BCOO,BrGLUT &BD00,2:60T0 1550 
1340 LDCATE xx,yyrPRIiNT" 

1350 GOSUB 2749 2 

1360 IF raix,y+1)=0 THEN E0TQU 1320 

1370 IF y<20 THEN BOTO 13206 

1380 OUT &BE00,8:0UT &BDOO,1i:FUR que=7 T 

D 0 STEP -ScSOUND 4,0,41-que que, 4,0, 312 
LOEATE #,yıPEN Z1PRINT CHRF(238} 1 NEXTSFO 
R quesi TO 1001REXTSLOCATE x ,yıPRINT" "r 
GUT %BCO0,BıüUT &BDOO,2 

1390 ma-ma-1LıIF aa=O THEN FÜR que=i TO 5 
000: NEXT:GOTO 1410 

1409 FÜR gqre=1 TO 5000. NEXT: GOTO 440 


1440 ’..,‚Bame (Uver... 

1420 MODE CO: BORDER OsPAPER O160SUB 2850: 
PEN & 

1430 LOCATE 5,537 PRINT CHR# 1135) 3 5TRING# 
10,131) 9 CHRFL13F) 

1449 LOCATE S,4:PRINT CHRE(13I); PEN 1:P 
RINT*FRUITY MAN"IIPEN 6: PRINT CHRF(139) 
14350 LOCATE 5,5:PRINT CHR$(141)55TREINBSt 
19,140) JCHRE (142) 

1450 WINDAW#2,2,17,8, 121 PAPER#2 ,2: CLE023 
LOCATE#2 ,5, 3: PEN#Z ,B: PRINT#2, "GAME ODVER 








programme 


1470 PEM 7:LOCATE 2,14:PRINT"LEVEL:";lev 
1480 LOCATE 2,144 PRINT"SCORE: "5 sc: LOCATE 
2,18: PRINT"HSC z";ihscıPEN 11 

1499 LOCATE 2,213 PRINT"DRUECKE FEUERTAST 

E"rIGDSUB 2850 

1590 IF JOY(i0o)=16 THEN 60Ta 15320 

1510 8070 1500 

1570 '„...Titelbild..- 

1530 MODE OrBORDER O:FAPER O0: GOEUB 2830 
1540 FOR que=3 TO 1Bs5 PRINT ani$ıPEN 12:1 
OCATE we ,S5:PRINT CHR#£LIOZI2PEN I13L0GAT 
E gna,5sPRINT CHRFt101)5PEN I2:LOCATE qu 
e,F4PRINT CHRE(IOZI PEN L13LOCATE que, 9: 
PRINT CHRSTIOTI NEXT R 

1550 FOR awe=& TO B:PEN 12:L0CATE 3,gwe: 
PRINT EHRFLLOZIAPEN I11LGCATE 3,qwesPRIN 

T CHRFtLONVI PEN 1Z2:LOCATE 18,qweıPRINT C 

HRE{LOZIKPEN 11:1.0CATE 18,qwe: PRINT CHRE 
<191) ıNEXT:PRINT anZz# 


1560 FEN S:LOCATE 5,7: PRINT"FRLUTTY MAN | 


“PEN 4ıLOCATE 10,12: PRINT"BY® 

1570 PEN 11LOCATE 3,183 PRINT"ANDREAS LE 
ICHT“ PEN 13:PRINTIPRINTIPRINT” COPYRIG 
HT 19786” 

1580 PEN 8:LDCATE 2,224 PRINT*DRUECKE FEU 
ERKNUPF"ıGOGLUIB 2850 

1590 IF JDY(O)=16& THEN EOTO 410 

1600 B0OTQ 1590 

1619 '.„.Monster beruehrt... 

1520 ma=ma-1:B051UB Z700: FOR qua=i1 TU 4009 
STEP 50:S0UND 2,qw=,10,53 NEXT 

1630 IF ma=0 THEN FÜR gea=ı1 TU 4000:NEKT 
:E0TO 1410 

1640 FOR que=1 0 1000:NEXT:GOTO 440 


1650 "n.„Lavel loo. 
1660 DIıG0SUB 2790:G0SUB 2830:x=1:y=-20:9 
x=20: gy=201 frg=12: 805U1B 2700: BUELUB 2810 


1670 FÜR a=4 TO Harai3,a)=5sPEN 15:LUCAT 
E. 3,ar PRINT CHRS 1103) 2NEXT 

16890 FOR a=2 TOD Sıraliil,a)=5:PEN 13:L0CA 
TE i1,a:PRINT CHREIOSI:NEXT 

1690 FOR a=2 TOD 20ıral19,a)=5: PEN 1IHLOC 
ATE 19,asPRINT CHRSTIOSI TNEXT 

1709 FOR a=5 TO Ilırat13,a)=3:PEN 137LDE 
ATE 13,33 PRINT CHRFC10I) ıNEXT 

1710 FOR ae10 TO 1Sırats,a}=5:PEN 13:L0C 
ATE &,a:PRINT CHRS(I03} ıNEXT b 
1720 FOR »=10 TO 18sra(17,a}3=5>5PEN 13:10 
GATE 17,2: PRINT CHRS{LOSI:NEXT 

1730 FOR a=1& TO 20:rati,a)=SıPEN 15:L06 
ATE 1,8:PRINFT CHR${103)3 :NEXT 

1740 FOR a=1&5 TOD 1Bıra (9, a)=S:PEN 151 Li 
ATE £,aı PRINT CHRF{LOSIHNEXT 

17 FOR a=17 TO 20:rati2,a)>5:PEN 15:10 
LATE 12,2: PRINT CHR#t103) NEXT 

1750 FÜR a=2 TO 10:rala,2)3=4:PEN 103L0CA 
TE 2,2:PRINT CHRS&1100) sNEKT 

1770 FÜR a=12 TO 16sra(a,2)=4:LOCATE 2,2 
ıPRINT CHRF$ (100) 1NEXT 

1780 FOR a=4 TO ırata,4)=4:L0CATE a,4ıP 
RINT CHRFtLO0) : MEXT 

1770 FOR a=B TO 12rrata,6}=4:LDCATE a,67 
PRINT CHR$L100) zNEXT 

1800 FOR a=14 TO 17:rrafa,&ä)=4:LOCATE a,6 
SPRINT CHRS (100) :NEXT 

1810 FOR a=7 TO 11:ra{a,10)=4:L0CATE a,1 
O:PRINT CHRS(100) :NEXTSLOCATE 15,10:ratl 
5,10 )24:PRINT CHREt1OOI:LOCATE 15,10:rat 
16,10) 241 PRINT CHRFLLOO) 

1820 FÜR a=7 TO 161rata,12}3=4:L0CATE a, 
Z: PRINT CHRF{100) ENEXT 

1830 FOR a=13 TOD 1ä:rala,14)=4:L0CATE a, 
14:PRINT CHR$(1007:rata,16)=41L0CATE a,l 
Hr: PRINT CHRSCLOOY NEXT 

1840 FOR a=2 TO Fırata,i4)=4:LDCATE a,1& 
PRINT CHR$1100) NEXT 

1959 FOR a=7 TD A1rrafa,is)=4:L0OCATE a,l 
&:PRINT CHR$(100):MEXT:FOR a=13 TO 18:ra 
ta,16)=4:LOCATE a,16s PRINT CHRS$CLOD) NER 
Tr 


1840 FER a=d8 TO 10:rala,tP)=4:LOCATE a,1 
FıPRINT CHR${100) :NEKT:FOR a=13 TO 17ıra 
(4,17)=4:LOCATE 172 PRINT CHRS& 100) :NEK 
T | 

1870 FÜR a=2 TO S:ra(a,i0)=4:L0CATE 3,10 
ıPRINT CHR&(100):NEXT 

1880 DATA 2,1,9,3,B,5,17,5,11,4,15,9,11,, 
11,13,13,11,15,13,15,10,18 

1890 RESTORE 1889: PRINT ani#tFOR qwesi T 
O0 11:READ zu,zy:rafzun ,zy)=10:PEN 12:10CA 
TE zn ,zy:PRINF CHR$(102):PEN 11:L0CATE z 


*,zyrPRENT CHRF{LOL)I zNEXT:PRINT arı2$ 
1905 GOSUB 2760: GDSUB 2870: GOSUB 2950:E1I 
RETURN 

199 '...Level 2.=- n 
1720 DI»GOSUB 2790:605B 2830:x>1L:y=20:g 
x=20:gy=lıfrs=4:60EUB" 27005 5D5UB 2810 
1930 FOR a=2 TO 12;ratlS,a)=S:PEN 13:L0CA 
TE 9,33 PRINT CHRFLIOSI SNEXT 

1940 FOR a>2 TO Arrat9,2)=5:L0OCATE 9,a:P 
RINT CHR$ (103) ra(13,2)=S5:L0CATE 13,a:PR 
INT CHRSI10F3) :rallä,a)=SrLOCATE 16,8: PRI 
NT CHRS{103) ıNEKT 

1750 FOR a=S TO 20:ra(29,a)1=5:LDLATE 20, 
aıPRINT CHRFLIOS) NEXT 

1960 FÜR a7 TO 10:rat17,a)=S:L0CATE 17, 
azPRINT CHRFTLIOH A NEXT 

1970 rat10,7)=S:L0CATE 10,7:PRINT CHR$ (1 
03) :ra(10,8)=5:LOCATE 10,8:PRINT CHRF(10 
3 

1780 FOR a=9 TO 1S5:rat12,a)=5:LOCATE 12, 
atPRINT CHR$ 103) ıNEXT 

1990 rat&a,13)=5:L0CATE &, 13:PRINT CHRS$ IL 
0S}:ra(6,14)=5:LOCATE 6,14 PRINT CHR#I1O 
53) 

2006 FÜR a=13 TO 20:ra(2,a)=5::LDOCATE 2, 
as PRINT CHR2(103) 4 NEXT 

2010 FOR a=15 T0 20:rat4,a2)=5:;:LOCATE 4, 
a:PRINT CHR$LIOSI «NEXT 

2020 FOR a=15 TO 20:rati6,a)=5::L0CATE 1 
6,a:PRINT CHR$ (103) :NEKT 

2050 ratä,1MI=5:LOCATE 5,17:PRINT CHR$(1 
05) E\ratb,iBß)=S:LOCATE 4,18: PRINT CHRFLLO 
1} 

2040 ral8,17)=5:kK0LATE 8,17=:PRINT EHRFEL- 
OF) rratd,ld)=S:LOCATE 8, 18:PRINT CHRFL1O 
&}) 

2050 ra(11,179=5:LOLATE 11,17:PRINT CHRE 
(105):ralit,18)=S:LDCATE 31,10: PRINT CHR 
#103) 

2060 ra(14,1P9=5:LOCATE 14,17:PRINT CHR$ 
(103) ıra(19,,18)=5:LOCATE 14,18: PRINT CHR 
#105) 

2070 FOR a=5 T0O 15:ra{a,19?=4:PEN 10:L0C 
ATE a,19:PRINT CHR$C1I0) NEXT 

2050 ra(7,17)=41LOCATE 7,173PRINT CHRSITI 
090) ırat12,17}=4:L0CATE 12,17:PRINT CHR$( 
100) sra113,17)=4:L0OCATE 13,17:PRINT CHRS$ 
1903 

2090 FOR a=5 TO 19: rata,1S)=4:LDCATE 3,1 
SPRINT CHR$t100) :NEXT 

2100 FOR a=5 TO iltrata,P)=AıLOCATE 3,95 
PRINT CHR$ (100) :NEXT 

2110 FÜR a=& TO 19:rala,S)=4:L0CATE 8,5: 
PRINT CHR$ (100) :2NEXT 

2120 FOR a=i1 TOD Isrrata,7)=4:L0CATE 4,7 
=PRINT CHR&tLOOITNEKT 

2130 FOR a=13 TOD 18;rala,11)=4:L0ÜCATE a, 
LisPRINT CHRFLL1OOI:NEXT 

2140 FOR a=3 TD 5ırata,15}=4>: LOCATE 3,19 
«PRINT CHR$ (100): NEXT . 

2150 FOR a=17 TO 19:rala,157=4ı LOCATE a, 
15: PRINT CHRFLLOOIENEXT 

2160 FOR a=2 TD Arrala,ZI=4ıLICATE a,2:P 
RINT CHR$ LIDO} = NEXT 

2170 FOR a=64 TO B:ra(a,2)=4:LD0CATE a,2:P 
RINT CHR#t100): NEXT 

2180 FOR a=id TQ 12:ıra(a,Z23=4:L0CATE 2,2 
“PRINT CHR#(100) NEXT 

2190 FOR a=17 TO 20ı1rala,z)=4:LDLATE a,2 
PRINT CHR£{1D0) NEXT 

2200 DATA 2,1,7,8,18,14,7414,13,15 

2210 RESTORE 2200: PRINT ani$:FOR que=i T 
0 S:READ zu,zyrralzx,zy)=10:PEN 12:LOCAT 
E zx,zy:PRINT CHR#(192):PEN I1:L0CATE zu 
szy: PRINT CHRS(101)=2NEXT:PRINT an2$ 

2220 GOELUB 2740:G0SUB 2870:605UB 2850:EI 
RETURN 

2230 "„.„.Level 3... 

2240 DI:GOSUB 2790: GOSUB 2830: 4=20:y=1:g 
x=20:gy=20: frs=11:GNSUB 2700: BDSUB ZB10 


2250 FOR a=2 TO Z20ırata,19)=4:PEN 10:LUC 
ATE a,19:PRINT CHR#$100) :NEXT 

2240 FOR a=1 TO 4ıra(a,l&ö)=A:LOCATE a,1d 
:PRINT CHR&{100) :NEXT 

2270 FÜR a=5 TO 9:rala,17)=4:LNCATE a,17 
"PRINT CHR$ LOG} NEXT 

2260 FOR a=10 TO 12:rata,i6)=4:LDCATE a, 
1&:PRINF CHRE{1O0) NEXT 

2290 FÜR a=13 TOD 17:rala,17)=4:L0CATE a, 
17:PRINT CHR$&(100}:NEXT s x 
2300 FOR a=12 TO 19:ra(a,149)=4:LUCATE a, 
i4:PRINT CHR$ (100) ira (a,1l)=4:LICATE a,1 
11PRINF CHR$(100) :rala,P=4:L0OCATE 3,9:F 


Gompute mik 


RINT CHRS{1O0) NEXT 
2310 FOR a=5 TOD 10:rata,12)=4:L0OCATE a,1 
Z3PRINT CHRF(100):ra(a, P9=4:LNCATE a,9:P 
RINT CHR$ (100) NEXT 
2320 FOR a=5 TO 14:rata,5}=4:L0CATE a,5t 
PRINT CHRE(100) ıNEXT 
2350 FÜR a=2 TOD Sırala,ö)=4:L0CATE a,6:P 


RINT CHRS$ (100) NEXT 


2340 FÜR a»17 TO 19erata,d}=4:LOCATE a,6 
«PRINT CHRE&(100) sNEXT 

255 FÜR a=8 TU 1LO:ralta,Zz’=4: LOCATE 2,2: 
PRINT CHRFCIOO) ı NEXT 

2360 rat15,4)=4el.BEATE 15,42PRINT CHRS(L 
00) 2ratl6,4)=4ıLOCATE i&,A: PRINT CHRFLILO 
{+} 3 i 5 
2370 ra(17,3)=4:LOCATE 17,35PRINF CHRF(1 
00) :rat{18,3)=4:LOCATE 19,5: PRINT CHR$(10 
+) 

2380 ra{19,2)=4:L0CATE 19,23PRINT CHR& (1 
00) :ra120,2)=4:LOCATE 20,2:PRINT CHRS(10 
0) 

2370 FOR a=6 TOD 1Bıra(20,a)=5:PEN 1&:L00 
ATE 20,2:PRINT CHR$(105) :NEXT 

2400 ra(18,17)=5:LOCATE 18,17:PRINT CHR$ 
(103) erat18, 1) =SıLOCATE 18,18: PRINT CHR 
#11037 

2410 rati8,2)=5:L0OCATE 18,2:PRINT CHRFTI 
05)ıra(18,3)=5:LDBCATE 16,3:PRINT CHR$(10 


"3 


2420 rat14,4)=S:LOCATE 14,45PRINT CHR$(L 
0H:raii, Hd =eilllhäTE 5,5:PRINT CHR&(103) 


2430 FOR a=2 TO 4rat11,a)=5:L0CATE 11,0 
ıPRINT CHR$T10I) zNEXT $ 

2440 FÜR a=6 TD 15:ral1,a}=SıLNEATE 1,a: 
PRINT CHR$(103) ıNEXT ö 
2450 FOR a=9 TO 1S5:rat11,=#)=5:L0CATE 11, 
asPRINT CHR#{103) :NEXT 2 
2450 rat5,16)=Sı LOCATE 5,14:PRINT CHR#(1 
0Z):rat9, 14)=S:LOCATE 9,16:PRINT CHREEIO 
Be 16)=5rLOCATE 13,1&:PRINT CHRS$CI 
03) 

2470 rat1,19)=S:LOCATE 1,19: PRINT CHRFI1 
95 ra (1,209 =5:LACATE 1,209:PRINT CHRS(1O 
5 

2480 DATA 8,1,17,5,5,B,16,8,16,10,5,11,1 
6,13,7,16,17,15,10,20 

2490 RESTERE 2480:PRINT ani$:FÜR qwe=i T 
0 10:READ zx,zyrraizx,zy)=10:PEN 12-L0CA 
TE 2zx,zy:PRINT CHR&(I102):PEN 11:L0CATE z 
%,zy:PRINT CHR$(101) :NEXTIPRINT anz# 
2500 E05U8 2740:605UB 2870:GUSLUB ZBS0:E1 
RETURN 

2510 '„..Level A... 

2520 DIıGDSUB 27W:GUSUB 28%0:x=1:y=1:gr 
=1:9y=20: frse11:60SUB 2700,E05UB 2910 
2530 FOR a=2 TO 201ra(3,a)=S:PEN 13:L0EA 
TE 3,3:PRINT CHREILYSIH NEXT 

2540 FOR a=2 TOD 20:ra(9,al=5:L0CATE 9,85 
PRINT CHR$ 103) :NEXT 

2550 FÜR a=2 TO ?0rratia,a)=5:LDCATE 16, 
a:PRINT CHR£(103) NEXT 

2540 PEN 10:ral1,@=4ıLOCATE 1,2:PRINT TC 
HR$tI1OO) ara (2,2) =41 L0CATE 2,2=:PRINT CHRF 
(1003 

2570 FOR a=4 TO 8 

2590 raia,2}=4:LOCATE #,2: PRINT CHRFtIOD 
Irrata,S)=4:LOCATE a,5:PRINT CHR#100) 
2590 rata,D)=4:L0CATE a,8:PRINT CHRFLLOO 
Jerala,il)r4:LOCATE a,i1ePRINT CHRS(100) 
2600 rata,199=4:L0OCATE a,151PRINT CHRF( 
oO):rala,1g)=41LOCATE a,i8ı PRINT CHRELLO 
O)=NEXT 

25810 FÜR a=10 TO 15 

2520 rala,3)=4:L0OLATE a,3:PRINT CHRFL1OO 
Yzrata,d)=4ıLOCATE a,&:PRINT CHR$CIOO) 
2530 rata,?]=4:L0OCATE 2,9:PRINT CHRE&LIOO 
Izraia,13)=4:LOCATE a,13rPRINT CHR# (100) 


2649 rata,17}=4:L06ATE #,17:PRINT CHR#&(1 
O0) :NEXT 

2850 FOR a=17 TO 20:ra(a,Z3=41LOLATE 2,2 
PRINT CHR# 100) »NEXT 

2560 DATA 6,1,19,1,13,2,5,4,6, 746,10, 13, 
12,6,14,13,16,6,17 

2879 RESTORE 2460: PRINT ani$:FOR que=si T 
0 10:RERAD zx,zyiralzx%,zy)=10:PEN I2ılLUCcA 
TE zx,zy:PRINT CHRStIO2}=PEN L15LDLCATE z 
%,2y:PRINT CHR$(101):NEXT:PRINT an2$ 
2680 60SUB 2750:605UB 2870:G0OSUB 2950:EI 
«RETURN 

2699 FOR aus=0 TO 13:INK aus,04NEXT:RETU 
RN 

2700 °,„ „Anzeigen... 


r | programme 


2710 LOCATE 1,22>PEN B:sPRINT"LEVEL: "jJIev zPRINT THRSC9ZI:PEN 24LOCATE w,y:PRINT C | 2860 INK 0,0: INK 1,12:1NK 2,6: INK 5,258,3 


z:PEN 4:PRINT" "3CHREt164)5" 1998" HRFLFZI:PRINT an2r ö INK 4,152 INK 5,0,15: INK 6,15,0: INK 7,21 
2720 PEN 8:LOCATE 1,23:FRINT’SCORE: "5 sc 2780 RETLRN INK B,1S: INK 9,26,0: INK 10,1415I0K 11,3 
2790 ‘...Dimensionieren-.. INK 12,92 INK 15,20: RETURN 
2730 LOCATE 1,24:PRINT"HSC 3";hsc 2800 MODE OrERASE rasfru=i:sDin ra(20,25) | 2870 '...Monster setzen... ; 
2740 LOCATE 1,25:PRINT”MAN ı’ma ı RETURN 2880 PRINT ani1$iPEN #:LOCATE gr ‚gy:PRINT 
2750 RETURN 26810 '.,.Grüundlinie... CHR$FEITPEN FILGCATE gr ,gy:PRINT CHREI 
27&0 "„..Figur setzen... 2820 PEN 10:FOR a=1 TO 20+LOGATE a,21rPR | I7):PEN 8: LOCATE gx ‚gyıPRINT CHRS(F9) PR 
2779 PRINT ant$:PEN 55LOCATE x,yıPRINT C | INT EHR$(100) 5; :rafa,21)=4: NEXT:RETURN INT an2# 
HR$(95) PEN 5:LOCATE x,yaPRINT CHRS(9G) 2830 '...Farbe aus... 2899, RETURN 
PEN 4sLOCATE x,y:PRINT CHR$(#4):PEN 1:L0 | 2840 FOR a=0 TO IS:INK a,0,NEXT;RETURN 
CATE x,y:PRINT CHR&(91):PEN SsLOCATE x,y | 2850 *,..Farbe an... $*E%* 
CHECK V1sPRUEFSUNMEN? 690- 450: 12956 124n- 1250: 44416 1840- 1950: 35478 2440- 24501 37847 
660- 670: 33544 1250- 12793 BIO 18A0- 1970: 35829 Z460- 2470: 85207 

ZEILENNR.z SUMMEN 600” 690: 67976 1280- 1290: 67741 1880- 1890: 42509 2480- 24901 27264 

100- 110: 47118 700- Tide 74710 1300- 1310: 31319 19009- 1910: 22413 2500- 25101 22437 

120- 130: 29079 720- 730: 00403 1320- 1330: 104564 1920- 1930: A2685 2520- 2550: 40517 

140- 150: 83115 740- 750: 12954 1340- 1350: 12956 1940- 19501 85057 2540- 2550: 38604 

140- 170: 56349 760- 77 33544 1360- 1370: 332534 1940- 1970: 61224 2560- "2570: 52499 

190- 1901 14963 780- 790: &39HB 13806- 1390: 674446 1980- 17705 61124 2580- 2590: 35180 

200- Z10: 26257 800- Bi10: 71574 1400- 1410: 34301 2000- 2010: 42148 2600- 26101 47056 

220- 230:- 15147 820- 8304 19964 . 1420- 1430: 46352 2020- 20301 66054 2620- 26308 33974 

240- 2501 14416 840- B50: 48974 1440- 14505 47323 2040- 2050: 70731 2640- 2651 65940 

250- 270: 43812 840- 870: 30426 1450- 1470: 35318 2040- 2070: 84670 Z66Q- 2670: 87012 

280- 290: 16247 8u0- A90ı 60504 1480- 1490: 44959 2080- 20901 714489 2600- 2690: 50210 

T00- 310: 38739 200- 10: 99941 1500» 15107 14711 - 2100- 2110: 33002 2700- 2710: 30092 

320- 330: 29000 220- 930: 33358 1520- 1530: 19194& 2120- 21301 41970 2720- 2730: 430453 

340- „ 350: 34705 740- 70: 4416 1540- 1550: 6035 2140- 2150: 40510 2749- 2750: 13468 

360- 3701 38284 960- 970: 73726 1560- 1570: 097723 2150- 21701 27240 27&60- 2770: 70215 

Sen- 3908 69447 990- 990: 54377 15B0- 1590: 54861 21B0- 2190: 37845 2780- 2790: 22405 

400- #410: ZBI8L 1000- 1010: 24127 1600- 1610: 26410 2200- 2210: 35027 2800- 2810: 57454 

420- 430: 85597 1020- 1030: 40812 1520- 1630: 103597 2220- 2250: 22425 2920- 2850: 63783 

440- A502 29999 1040- 1650: 44735 1640- 1450: 31458 2240- 2250: 713531 2340- 2850: 33560 

4640- 470: 23847 1040- 1070: 17024 1660- 1670: &4508 22609- 2270: 35379 2860- 2870: 50123 

480- 490: 69946 1080- 1090: 84406 1580- 1690: 67552 '2280- 2290: 46114 29389- 20%: 2720 

500- 510: 197% 1100- 1110: 90566 1700- 1710: 68573 2300- 2310: 53231 ln nn 

520- 530, 40438 1120- 1130: 44735 1720- 1730: 71812 2320- 2330: 30200 . GESAMTCHECKSUMME: 38751 

549- 550: 33013 1140- 1150: 19427 1740- 1750: 72000 2340- 23503 35392 ; 

Sa0- 570: 15400 ! 1160- 1170: 70238 1760- 1770: ABSıE 2360- 2370: 79744 

536- 590: 56078 1196- 1190: 59913 1780- 1790: 30174 2390- 2390: 75566 

&00- &10: 7332B 1200- 1210; 39352 1800- 1810: 78541 2400- 2410: F0aBl 

620- 6303 74703 1220- 1230: 15648 1820- 1830: s8BiB 2420- 24301 54477 





Hier wurde ein alter Spielhallen- 
hit für den Schneider umgesetzt. 


Zwei Spieler steuern UFO’s, die 
sich gegenseitig beschießen. Ihr 
Laserstrahl wird aber in einem i 
Spielgellabyrinck abgelenkt. Ein 
Schuß muß also nicht unbedingt 


beim Gegner ankommen, kann 
sogar einen selbst treffen. 


Nach dem Start sehen. sie ein An- Spannender Kampf für 2 Spieler am cPC 


fangsbild mit einer Highscore- 
Tabelle. Nun stehen‘ Ihnen fol- 
gende ‚Funktionen zur Verfü- 


gung: . KM 

L Laden der abgespeicherten Mi, u 
Highscore-Tabelle von Disket- aM 
te oder Datasette Ss 


$ Damit saven Sie die aktuelle 
Highscore-Tabelle ab 





© Damit gelangen Sie zu 3 weite- 


ren, Optionen ne ne _ 





jene 


und zwar: a  — ea 
C Damit schalten Sie um zwi- 
schen KEYS: Beide Spieler be- 
nutzen Tasten „Mm 
JOYSTICK/RENS: Ein Spi- $S Umschalten zwischen Green- weiter erscheint im Hauptmenü: Nach dem Bildschirmaufbau kön-! 








ler spielt mit dem Joystick, der und Color-Monitor B Spielbeginn. Sie werden noch nen Sie nun die Raumschiffe hoch 

andere mit den Tasten Anm.: In Zeile 320 können Sie mal gefragt ob Sie das Spiel be- und runter bewegen. Die Treffer- 

Joysticks: Beide Spieler benut- die Voreinstellung für GREEN- ginnen ($) oder zurück ins punkte verteilen sich dann folgen- 
| zen Joysticks Monitor vornehmen Hauptmenü wollen dermaßen: 





Compute mi 





programme 


- treffen Sie die Bildschirmseite - treffen Sie Ihre eigene seite, so - Schießen Sie Ihre eigenen Bo- Nach ungefähr 3 Minuten ist das 
des Gegners, erhalten Sie 20 bekommt der Gegenspieler 19 nusbuchstaben ab; erhalten 5 - Spiel zu Ende. Haben Sie eine bes- 
Punkte. Punkte 25 Punkte (von Bnach $aufstei- sere Punktzahl als der letzte Ein- 

-wird der Gegner selbst getrof- - treffen Sie sich selbst, erhält der gend). Sind alle.geiroffen, kom-. trag in der Highscorerabelle, kön- 
‚Gegner 20 Punkte men noch mal 30 Punkte hinzu. nen Sie sich eintragen. 


fen, ergibt das 40 Punkte 


100 7 be ÄRAER EAN RAR 
ati 4 hd 2 2 3 2 2 


110’ # 
E 2 
120°" * * JEBASOFT # JEBÄSOFT # 
* 
130 °.# 
% 
190 ' » presents 
= 
150 ’ MIRROR BgaT 
TLE * 
140 ‘ # 
2 
179 ' # <C} April 1984 hy Jens Barth 
/ Bonn * & 
100 °# 


#* + 


190°. MERRBRBÄRRHRRIHSRRGEHHRIHHISHNHRHEIHENE 
Deere ren 

200 r .. 

210 FOKE %&B2C4,%ED:POKE 4B2C5, 810 ' 
R$(O}=Loesche Tastaturbuffer } 
220 SYMBOL AFTER 254: MEMORY 8979977: BOSUB 
4000 

234 * Anfangsinitialisierung 

240 KEY 140 ,CHR${252) +"gota 3920"+CHREI1 
3) D 

‚250 SOSUB 3140: " Zeichendefinitiaonen 
2&0 RANDGMIZE TIME: DEFINT arz: DEFREAL = 
270 * Scund-Initialisierung 

ZBO ENT —1,103,2, 14-314 

290 ENV 1,15,-1,2 

300 * Variablen-Init 

310 cami$=*"BOL9*scons="KEYS" 

320 ser$="DOLOR”:" oder sers="GREEN", wa 
nn Sie einen Bruen-Monitor besitzen 

330 DIM n${10) ‚se (10) ‚a(2) ,b (2) ‚ra(Z} ,rb 
2) „chi2) 

340 HOSUB 2490, ° Inik Highscores 
350 ' tmenue x 

360 BOSUB 3470: ' Aufbau Anfangsbilgd 
370 LOCATE 1,12PEN 1zPRINT" "B’ Start 
Options *'L" Load ’8' Save" 

390 G0OSUB 2550: * Highscore-Tabelle ausg 
eben 
390 " 


CH 


SCROLLen von MIRROR BATTLE durch M 


c 

300 CALL &A000 

410 * Tastaturabfrage bei Anfangsbild 
420 a$=UPPERS(INKEYS)I 

430 IF ag="" THEN A50 

440 ON INSTR(con1#,a$)80TD 460,2630 , 2850 


! 


MODE J4IF con$e"J0YSTICK/KEYS" THEN 


IF con#="JOYSTICKS” THEN 810 

IF con$="KEYS" THEN 700 

’ foystick/keys 

PEN 1: PRINT"LONTRAL=® 

PRINT "mm 

PRINT; PRINT+PRINT ; 

PEN ZEPRINT" Player 1 s "PEN SıPRIN 
Joystick 0 " 

PRINT 

PEN 2z:PRINT” Player 2 : "sPEN SsPRIN 
Keyss <C> UP <\> DOWN <:> FIRE” 

ui=72:41=731#1=?61ı u2=171d2=22: #2=28 

80T0 780 2 

* Joysticks 

-PEN 1:PRINT"COENTROL: " 

PRINT" 

PRINT:PRINTF=:PRINT ai 

PEN 2:PRINT* Player 1 2: ":PEN 3:PRIN 
Joystick u * . 

PRINT a E 

PEN 2:PRINT* Player 2 ı "sPEN SıPRIN 
Joystick 1 ” : } EN 

ul=72: d1=73:41=76: u2=48:d2=49: #2=52 

GDTG 780 ö ; 

" Kuys 


S40 


Sao 
T " 


610 


710 PEN 1:PRINT"CONTROL=" 

720 PRINT"----—--- “ 

730 PRINT=:PRINT=PRINT SR 
740 PEN 2:PRINT" Player 1. "ıPEN S:PRIN 
Tr Keys: <0> UP xZ> DINN <8> FIRE" 
750 PRINT 


760 PEN 2PRINT" Player 2 : "ıPEN S:PRIN 


IR Keys: <L> UP X<X\> DOWN «5% FIRE" 
770 ul=s47:di1=71:f1=50:u2=17:d2=22: f2=2B 
780 PRINTıFRINT:PRINT:PRINT 

790 PEN 1:PRINT”" S";31PEN Z2:PRINT"tart 

Game" f 

E00 PRINT 

810 PEN 1:PRINT® R"3nPEN 2:PRINT"eturn 
tn Menue" 


29 at=UPFERFTINKEYS) 
8350 IF as="R" THEN MODE 1:B0T0 SA0 
840.1IF as<>"S" THEN 820 

.. 2 


850 A 
ı 
Br"! SPIEL 
4 
870 *! 
} 
@BO MODE © 
090 " Farben setzen 
700 IF scr#="CGLOR" THEN RESTORE 750 
910 IF sers="GREEN” THEN RESTORE 940 
920 FOR p=0 TO 1S5:READ pcı INK p,pesNExT 
B 
930 MTA 0,1,13,26,6,2,P,0,7,25,0,28,0,0 
„0,0 ; 


740 DATA 0,2,17,26,15,25,13,0,7,25,0,24, 
0,0,0,0 = 

»50 ” Hindowus festlegen 

760 WINDOW #1,1,20,1,41 PAPER #1,11PEN #1 . 
„3>sCcLS #1 

770 WINDOK #2,1,20,5,51 PAPER #2,0:PEN #2 
„:CL6 #2 

759 WINDOR #3,1,20,25,253 PAPER #3,0:PEN 
#3,5:£L5 83 ; | 

990 WINDOW #4,1,1,6,24:PAPER #4,0:PEN #4 
‚S:CcLE MA 

1000 WINDOW #5,20,20,6,24:PAPER #5,0:PEN 
#5,4:C0L5 #5 

1010 WINDOW #4,2,19,5,24: PAPER #6,0:PEN 
%,3:CL9 #6. R 

1020 WINDIM #7,2,19,5,24:PAPER #7 ,01PEN 
#7 „5: PRINT#?7 „EHR$T2ZICHRE {1} 

1030 GOSUB 3949 

1040 * Variableninitialisierung 

1050 anz=100:60819 3390r yl=107 y2=10:se1= 
O:sc2=0 

1060 * Raumschifte PRINTen 

1070 WINDGW SWAP A:LOCATE 1,10:PRINT CHR 
FLZ2ICHRF (1Y 5: PRINT CHR$(215) 54 sPEN 4: LOCO 
ATE 1,10:PRINT CHR$(214)5:PEN SıPRINT CH 
RELZZICHRS CO) 3 :WINDEW SWAP 4 

1080 WINDOW SWAP StLOCAYE 1,210:PRINT CHR 
SEZWICHRF III H:PRINT CHR$ (21073 :PEN 5:00 
ATE 1,10:PRINT CHRFIZ211)5:PEN A4:PRINT CH 
REIZZICHRE (0) ; :WINDOWN SWAP 5 

1090 ° BÖNUS-Felder initialisleren 

1100 FOR i=200 TO 204 

1110 x=INT<RND«19) +1 

1120 FOKE &AU40, SPORE &AO4E,xıECALL EAO4 
Fe IF PEEKISAOCAZI<CIIZ THEN 1110 

1130 LÜCATE #2,;x,1:PRINT #2,CHR$(i} 

1140 x=INT(RND*17)+1 2 
1150 POKE &A040 ,25:POKE AO ,xı CAlLL KARO 
43s IF PEEK(&ANA2I<>IZ THEN 1140 

1180 LICATFE #3,% ,13PRINT #3 ,CHRE£(1) 

1170 WEIT i 

1180 ' SCRÜLL-Routine neu initialisieren 
1190 POKE KAOLA,&4F:iPCKE EAON1 „40: POKE 
A002 ,&CH 

1200 POKE KAOZI,KAF:POKE LAO22,SECF:FÜKE 


ZIeitbegrenzung 3 

1270 ti=290:EVERY 500,5 GESUB 3950 

1230 * Banus-Initialisierung 

1240 bai$="banus”=bo2$="hanum" 

1250 ° Steuerung N 

1240 IF WNOT{INKEY{u1)ITHEN IF yi>1 THEN 


"ylayı-t:l0CATE#4, 1,19: PRINTR4,CHRE (10) 


Sompute mib 


1270 IF NOT{INKEY{d1))THEN IF yi<1? THEN 


. yl=yi+1:3LOCATE#S,1, 18 PRINTR4,CHRE(11) r 
1280 IF NOT{INKEY(#1IITHEN IF Fistlı=O TH 
"EN fi ctti=1:60SUB 1410 


1270 IF NDT<CINKEY(uZIY? THEN IF y2>i1 THEN 
y2=y2-13L0OCATE#3,1,19:PRINT#3,CHR$ (10) 
1300 IF NOT<INKEY (O2) THEN IF y2<17 THEN 
y2=y2+1:LDCATE#3,1,1:PRINT#5,CHRFELLI 
1310 IF NOT{INKEYiFZIITHEN IF fi (2)=0 TH 
EN fi iZ)3=1:G05UBb 1470 

1320 * Ggf. Schuss-Routine aufrufen 

1350 IF #it1)=1 THEN pal=1:6G5UB 1540 
1340 IF #4 (Z23=1 THEN pl=2:60SUB 1540 
1350 *° SCROLL-Rautine aufrufen 

13&0 IF RND(2)<0.041 THEN FOR i-1 TO 4:CA 

IL BEROOO:NEXT i 

1370 IF RNDI3)I<0.01 THEN FOR i=1 TO A:CaA 

IL &A0O21:NEKT i a 

1380 IF RNDi4)<0.01 THEN anz=11ma=INT (RN 
Da2):5605UB 3390 

1370 IF tout THEN 2170 

1400 60TO 1240 

1419 °8 ! 
1420 ’! Echuss Player 1 initialisieren ! 
1430 *! ! 


1440 atl=1rbtl}eyteralldelırbil)=0 

1450 p1=1:SOLND 2,100,30,15,1,,9:G0SUR 1 
599 

1460 RETURN 

1470 °! ® 
1480 °! Schuss Player 2 initialisieren ! 
1490 ') | ‘ 
1500 aiZ)=18:b (DryZirat2)=-1:rht23=0 
1510 pl=2:SUUND 2,100,30,15,1,,8:605UB 1 
=,o 

1520 RETURN 

1330 *1 [ 

150 °! Echuss Player <pl> ! 

1550 *t = 

1540 LOCATE #8,&(pl},bipl):PRINT #&,CHR$ 


tchipl));zaipl)=atpi)+ratpl)zbipl)=bipl) 
+rbipi} - 

1570 IF atlpl}=Q0 OR atipl)=19 THEN 1780 
1580 IF btpl)=0 DR bipl)=20 THEN 1880 
1590 WINDGK SWAP 4:POKE &A040,b (pl) :POKE 
KAO4L,a<pl)zCALL KAGASSch (pl) =PEEK (&AOA 
ZJıWINDIM SWAP & 

1800 cha=ch {pl }:cha2=cha\2 

1610 IF cha<c’32 AND cha<>250 AND cha<>23 
1 THEN cha=32:cha2=1&4 

1520 IF cha=32. THEN ch=220+ABS trb (pl) 

1830 IF cha2=115 THEN ON cha-229 GOSUB 1 

640,1720: IF RNDI{7)<O.1 THEN cha=52 ELSE 
IF RND<B9<0:.03 THEN cha=451-cha 

1449 IF cha=32 THEN IF RNDi?)I<O.03 THEN 
cha=INT (RND«2)+230 , 

1650 ch{pl)=charPEN#7,6-pl:LOCATENT,atpl 
),btpl) :PRINTR7 ,CHRS (ch); :PENN7 „3: RETURN 
1660 * Spiegel / 

1670 SOUND 2’p1 „70+p1,10,4,,0 

16880 IF ratgpt)+rbipl)=-1 THEN ch=223 ELS 
E ch=224 b 

1690 IF ratpl) THEN rbtpl)=-ratpl)ıralpl 
)=0: RETURN 

1700 IF rhipl1) THEN ratpl)=-rbtpllırb (pl 
)=0: RETURN 

1710 RETURN 

1729 °‘ Spiegel \ 

1730 SOUND 2°p1 ,70+pt,10,4,,0 

1740 IF ratpl)=rhipl)=-1 THEN ch=222 ELS 
E ch=225 

1750 IF ratpl} THEN rbipl)=ratplirratpl) 
=0: RETURN 

17&0 IF rb(pl} THEN ratpi)erbipl>ırb(pl) 
=O: RETURN 

1770 RETURN 

17980 *t 
1790 
1800 '! 
1810 fi tpi)=n 

1820 IF alp1)=0 AND pil=1 THEN SOUND 2,30 


vn in re 


. Schuss links/rechts heraus 
. n : 


:0,4,5:85c2=ac2+10+t10. AND btpl}=y1) 


1830 IF a(pl}=D AMD pl=2 THEN. SOUND 2,70 
‚9,5: scZusc2+20+120 AND bi{pl)=yl) 
1840 IF atpE?=19 AND pl=1 THEN BOUND 2,7 


Be 7; 





ER 


—— 





0,4,5: sei=e5C1+20+(20 AND btpi)=y2} 

1850 IF atpl)=17 AND pi=2 THEN SUUND 2,5 
00,4,5:sc1=sc1+10+{10 AND bipl)=y2) 

1850 GÜSUB 2260 

19870 RETURN 

1880 *! 

1890 *'! Schuss oben/unten heraus 
1700 'ı 

1910 fi tpl)w0 

1920 IF bipl)=0 AND pl=1 THEN BDUND 2,28 
0,5,4:6010 2160 

1930 IF bipl)=20 AND pl=2 THEN BOUND 2,2 

680,5,4:60T0 2140 

1940 IF bipl)=0 AND pl=2 THEN 2060 

1950 IF b(pl}=20 AND pl=3 THEN 1970 

19760 RETURN 

1970 ' Bonusfeld Player i 

1780 POKE &A040,25:POKE AOL at) +I:CAL 

L &AO4S:char=PEEK (&N042) 

1990 IF char=32 THEN 2150 

2000 char=char-197 

2010 SOUND 2,95,5,& 

2020 MIDS(bol$,char ‚LI =UPPER$ (MID$(boi$, 
char ,1)) 

2030 seil=scl+char#S: IF bois=*BONUS" 
scil=esc1#30 

2040 LOCATE #3,at1} ,13PRINT” 3 
2050 G0SUB 2320:60T0 2159 

2050 * Bonusfeld Player 2 

2070 POKE &A040,5:POKE &AOA1,a12)+1:CALL 
ADASSchar=PEEK (&A042) 

2080 IF char=32 THEN 21390 

2090 char=char-199 

2100 SOUND 2,95,5,& 

zı10 MID$(bo2# ‚char 1) =UPPER$IMIDFChuRE, 
char,1i1)) 

2120 ST2ZSSE2HChaness IF bo2$=*BONUS” THEN 
sc2=s02+30 


“m 


THEN 


2130 LOCATE n2,n120, JıPRINT" "3 
2140 S0SUB 2320:G0170 2159 

2150 GOSUB 2250 

21&0 RETURN 

2170 *! ı 

2180 ’! Time Out ! 

2190 I 


2200 em 9,16,34,15:PAPER B:PEN 9:CL5 
:LOCATE 2,2:PRINT"GAME DVER" 

AFTER 1,3 GOSUB 2519 

FOR i=1 TO 1000:NEXT 

fi (1)=0: fi 12) =0: taut=O 

GOSLB 3560 

ati 370 


2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 PEN #1 ,3:LSCATE "1 „1,2:5YMBOl. 32,47 
E,806 ‚ECE,&D6, SEA „ROH ,&TC ,%OsPRINTRLUSL 
NG "cl 


R H 2 BEER 


2300 LOCAHTE #1,17,2:PRINT#1,UBING "ua48", 


15025 :5YMBdL 32,0 


2310 RETLRN 

2320 *ı ® 

23350 "! Bonus-Anzeige ! 

2340 +1 ‘ 

2350 LIEATE #1,1,3 

2360 FOR i=1 TO 5 

2370 IF MID#(boi#,i „1? =UPPERF IMIDE Chi $, 


i,1)) THEN PEN #1,5 ELSE PEN #1,2 
2380 PRINT#1,CHRE 14199) 5 

2390 NEXT & 

2400 LUCHTE #4,16,3 

2410 FÜR i=1 TO 5 

2420 IF MID$iho2#,i,1) =UPPER$ {MID$(bn2$, 
i,1)) THEN PEN #1,4 ELSE PEN #1,2 
2430 PRINT#1 ‚CHRS(I+199) 5; 

2440 NEXT i 

2450 RETURN 

2460 '' 


[1 
2470 ’! Initlalisierung der Highscore-Ta 
belle ! 
za00 ‘! 
' 
2490 RESTORE 7510:FOR i=1 TU 10:READ n#t 
i),scti)zNEXT i 
2500 RETURN 
2510 DATA JeBasaft,350,JeBaSoft,520, JeBa 
Soft ,290 „JeBaSoft „260, JeBaSoft, 230, JeBas 
oft, 200, JeBaSoft, 170, JeBaSoft, 140, JeBaSo 
#t, 110, JeBaßoft, 20 i 
2520 .} } ! 
2530 *! Ausgabe der Highscore-Tabelle ; 
. . ' 


2550 FOR 1#1 TO 10... 


# 


2560 PEN(i MOD 238241 
2570 LOCATE 2,i+10r PRINT n$ti)35TRINA®LS 
S-LEN in# ti) „". "IUSING "ER" isctit 
2580 NEXT i 
2570 RETURN 
ZOO °* y 
2810 '! Options ! 
2620 '! L N 
26550 WINDOW #7,1,40,11,211CLB #7 
2640 PEN 13L0CATE 1,1:PRINT“ 

Options: *CHRF (10) 
2650 LOCATE 10,141PEN SıPRINT"C*H:PEN 1ı 
PRINT"hange Control r"z3sPEN S:ıPRINT conf; 
CHRFXABI B 
2560 LOEATE 10,16:PEN 33PRINT"S"JıPEN ir 
PRINT"creen: "j:PEN S:PRINT scr#;5CHRE (18) 
2670 LOCATE 10,1B:PEN S:PRINT"R"zıPEN 1: 
PRINT"eturn ta menue"; 
2680 a4=UIPPER$ (INKEYS) 
26970 IF as="C" THEN 60SUB 2770 
2700 IF a$="S" THEN GOSUB 2800 
2710 IF as="R" THEN 2740 
2720 CALL &A000 
2730 IF as="" THEN 2660 ELSE 2450 
2740 GOSUB 2550 f 
2750 LOCATE 1,1:PEN i:PRINT” "B’ Start "D 

* Options ’L’ Load '5’ Save" 

2780 G0TD 400 
2770 IF cons="IOYSTICKS" THEN cons="KEY& 
"RETURN 
2780 IF cons$="KEYS" THEN cans="J0YSTIEK/ 
KEYS"TRETURN 
2790 IF con$="JOYSTICK/KEYS" THEN conse" 
JOYSTECKS": RETURN 
2800 IF ser$=*COLOR" THEN INK S,10:scr#= 


-"GREEN"IRETURN ELSE INK 3, 2+8cr$="CoLoR” 


RETURN 

2810 RETURN 

2820 *t 

2830 *! LOAD Highscores 
za40 *'! 

28590 IF PEEK(&BC78)=13? THEN OPENIN "his 
cores.mrb" ELSE UPENIN "!highscores (iMB} 
" 


men im 


2850 
28709 
2360 
2990 
2700 
2910 
320 ° 
2930 *! 
2940 "* 
2950 IF PEEK (&BCBD)=139 THEN OPENDUT "hä 
seores.mrb" ELSE DPENGUT "!highscares (M 
By" 

2960 FOR i=1 Ta 10 

2970 WRITE #97,n$(i),scti) 

2980 NEXT i 

2390 WINDOW 15,15,25,29: CLOSEOLUT: IF PEEK 
(&BC78)=159 THEN PEN Oreras="hiscores.ba 
kTs IERA,@erassPEN 1:WINDOW 1,40,1,25 
3000 5070 #00 


FOR i=1 FD 10 

INPUT #9,n&ti} ,scti) 
NEXT ä 

GOSUB 2550 

ELDBSEIN 

GOTG 400 > 


[1 
SAVE Highscores ! 
H 


3010 "! 

‘ 
3020 '! Initialisierung des SCORE-Fenste 
rs ! 

| 

= B 
3040 CLS #1:PEN #1 ,2:PRINT#1,"PL.1 HI 
6H PL.2" 
3050 LDEATE #1,1,2:PEN #1,3:PRINTHL,."009 
Oo Kl} 
3040 EYMEDL 32,870,%&C6,&CE ‚&Dö,SEb 864, % 


7C „80: PRINT#1 „USING "aRNM"isc(i)}; 
3070 SYMBOL. 32,0:PRINT#L,” 0000" 

ZaBd LOCATE #1,1,3:PEN #1,2:FOR i=200 TO 
204: PRINT#1,CHRS Ci) 5 NEXT 

3090 LOCATE #1,16,3:PEN #1,2:F0R i=200 T 
D 204: PRINT#I ,CHRS ti); 1 NEXT 

3100 PEN #1,3 

3110 MOVE 276,355:DRAW 354,355, 111 RAW 3 
56,540:DRAW 276,340: DRAW 276,355 

3120 RETURN 

3130 *! 
3140 '! 
S1so '! 
3160 SYMBOL 
3170 SYMBOL 
3180 SYMBOL 
3190 SYMBOL 
3200 SYMBOL 
3210 SYMBOL 
3220 SYMBOL 


Zeichendefipnitionen 


AFTER 32 

200,120, 36,36,56, 36,36, 120 
201 ,24,36,36,26,36,36,29 
202, 356,36,52,60,44,36,36 
203,34, 36,36 1 356,36,36,24 
204,24, 32,32,24,4,4,56 
210,2,12,62,118,62,12,2 


Gomputbe mib 


programme 


3230 SYMBOL 211,0,0,0,8 

3240 SYMBOL 215,64,48,124,110,124,48,44 
3250 SYMBük. 216,0,0,0,16 

32640 SYMBOL 220,0,0,0,126 

3270 SYMBDL 221,8,.0,9,B,8,8,8,8 

3280 SYMBOL 222,9,8,9,& 

3290 BYMBOL 223,0,0,0,6,8,B,8 

3500 BYMBDL 224,8,9,9,41Z 

3310 SYMBOL 225,0,0,0,96,16,18,1& 

3320 SYMBOL 230,0,2,4,8,16,32,64 

3330 SYMBOL 231,0,64,32,16,8,4,2 B 
3349 EYMBOL 240,255,129,229,129,129,129, 
255 

3350 RETURN 

3360 "1 

3370 '! <anz> Spiegel verteilen 
3380 *! B 

3390 WINDOW 06,2,19,6,25 

3400 FOR a=1 anz 

3410 x=INT<RND#1@) +11 y=INT (RNDaLF9} +1 emp 
INT{RNDaZI 

3420 IF mo=1 THEN mn=Ö1L0CATE Hu,r,yıPRI 
NT#6," "3:G0T0 3449 

3430 LOCATE #6,x,y: IF sp=0 THEN PRINTHS, 
CHR# 1230) ELSE PRINT#&,CHRE (2313 

3440 NEXT a 

3450 WINDON #4,2,19,4,28 

RETURN 

s470 ’! {) 

"! Antangebild. aufbaum ! 


m. 


£ 
8 


33500 HE 11 INK 0,0:BÜRDER Oz INK 14,62 INK 
2,24: INK 3,2 : 

s510 IF sr $a"GREEN" THEN INK 3,10 

3520 LOCATE 13,31PEN ArPRINT"MIRRUOR BAT 
TLE” 

3550 LOCATE 23,6:PEN SPRINT CHR$(1647* 
B& by JeBaSoft” 

3540 POKE &AO1A,&27:POKE &A0OD1,&4:POKE & 
R002,&C1 

3550 RETURN 

3550 *! 


"1 evtl. Namenseingabe beider Spiel 
3580 "ı 


" Player 1 

SOSUB 3470 

3510 sc=sc1:BSUB 3770: IF t=-1 THEN 3480 
3620 PEN 1411.0CATE 1,1:PRINT® Playe 
r 1 ı Enter your Name“ 

3630 IF scp=i0 THEN n#t10)=SPACEF(IO) 2EE 
<10)=sc1 ELSE FOR I=? 70 sca STEP -Iın#i 
i+1)en$ti):seti+1l)=scti)ıNEXT iınslacp)= 
SPATEFL3S)I: Sc {scp)=sci 

3640 GOSUR 2550 

3650 SOUND 2,200:59UND 2,150r:5DLND 2,200 
;SCLUND 2,100,50 

3660 PEN 2:LDCATE 2,scp+10:G0SUB 3826 
3670 n#tscp)=ein$ 

3580 * Player 2 

3690 sc=sc2+:608SUB 3770: IF t=-1 THEN 3760 
3700 PEN 1:L0CATE 1,1:PRENT" Playe 
r 2 ; Enter ynur Name" 

3710 IF scp=10 THEN n${10)=SPACES (S0Jisc 
(10)=sc2 ELSE FOR i=7 TO scp STEP -I:inst 
i+l)ensti)sscti+l)escti)zNEXT jındtscp)“ 
SPACE$ (33) ı se (scp}=sc2 

3720 GOSUB 2550 

3730 SOUND 2,200: 50LND 2,15018DLMND 2,200 
:SOUND 2,100,50 


3740 PEN 2:LDGATE Z,acp+iVö:A0SUR 3620 

3750 n$&(scp)=eins 

3760 RETURN 

3779 ' Position bestimsen von ze 

3780 FOR i=1 TO 10 

3790 IF scli)<sce THEN scp=irt=0sRETURN 

3800 NEXT i 

38109 t=-1zRETURN 

5820 * Eingabe (INPUT-Bimulation) 

3930 PRINT CHR$(O0) 1 

Pass einge" tıa$=e""4PRINT CHRS(ZAOFCHRFIE 
[4 

SE50 @$=INKEYSı IF e="" THEN 3700 ELSE L 


F es=CHR# (13) THEN 3910 
3860 IF ASC(e$)<32 OR ASCtes) >127 THEN 5 


0 
:3870 IF e$=CHR# (127) AND LENfaIn®)>0 THE 


"N PRINT CHR&tIA) CHR$ (BI CHR& (240) CHRS (9) 5 
1ein®=LEFT$ieins,LENlein$?-1):60T0 39009 

3980 IF es=CHR#1127) AND LENtein$)=0 THE 
N 39009 


1: 3890 IF LENteins)<So THEN PRINT aSCHRE12 


AOTHRS (AI 3 eAns=ei n$+e$ 


programme 














3900 CML &4000:5010 3850 4010 'ı NC-Loader ! 4000 DATA BEB,LIB,LFZ, GHZ, KbE,EZE,EO1, UA 
ZF10 RETURN 4020 "1 ! F,&00,k1A } 
3920 MODE 2:PEN IsPAPER O:INK 1,20:END:S | 40530 DATA 411,&00,%C0,2CD,&19,&BD,EDS,&C | 4090 DATA KED,&BR,%12,%03,:00,&00,&00,%2 
TOPIERROR 100 2 D,&15,%A0 ArEIO, AO : 
3730 "! t 4040 DATA &D1,BEB,&11,.%00,60B,%19,EDA,&E | 43100 DATA ACD,&75,%&BB,&CD,&60,&58,%32,%4 
3940 *: Zeitanzeiger ! B,&18,&F2 2, &A0,&C9 f | 
3950 * Y 4050 DATA &C9 ‚421 ,201,%00,&19,%01,&3F,&0 | 4110 RESTORE 4030 ji 
3760 MOVE ti ,355: DRAW Ei 340,12 Q,&1A,8ED 3 4120 FÜR adr=4A000 TD KAROAF \ 
3970 tiatira 40&0 DATA %BO,K1Z,807 il ,44F ‚&00,%00,%1 | 4150 READ byte 
3990 IF t1)=35& THEN tauut=] 9,%BD,&D5 R 4140 POKE adr ,byte 
3990 RETURN 4070 DATA &CD,%35,&A0,&D1,%EB,%11,&00,%&0 | A150 NEXT adr 
2000 *! ! 8,417,%&D8 41&0 RETURN 
CHECK VI1PRUEFSUNMEN: 880- 8701 13501 1720- 1730: 27571 2540- 23702 35793 \ 
F00- 9101 48421 1740- 1750: 4880 2580- 25901 1A08B 3400- 3410: 71510 | 
ZEILENNR.ı BUMMEN 920- 9301 70225 1760- 17701 3600 2400- 2410: 7909 3420- 3430; 45955 
100- 3101 32094 740- 9501 40048 1760- 17903 47378 2620- 2630: 6027 3440- 3450: 404 
120- 130: 37226 F60- 970: A0SA 1800- 18104 10952 2640- 2650: 108922 3460- 34701 1543 
140- 150: 52197 gE0- 990: 43253 1820- 18303 90BSt 2660- 2670: 89373 3440- 3490: 31224 
180- 170ı 5320 1009- 10103 44693 1840- 1850: 101234 2680- 265: 21244 3500- 35101 41173 
. 180- 190: 32094 1020- 1030: 34044 1860- 1870: 1338 2700- 2710: 24981 3520- 35305 71617 
200- 210: 879 t040- 10504 71614 1880- 1890: 41294 2720- 27301 15034 3540- 35501 24287 
220- 230: 47053 1060- 1070: 57189 1900- 19103 10986 2730- 2750: 29615 3540- 3570: 6465 
240- 250 79483 1080- 1090: 80360 1920” 1930: 126852 2760- 27701 43678 3580- 3590: #851 
240- 270: Sart4 1109- 1110 25993 1940- 19504 77484 2780- 27901 35759 S400- 3610: 48995 
280- 290 11737 4120- 1130: 21014 19&0- 1970: 19482 2200- Za10: 38187 3620- 3430; 12747 
300- 310: 48004 1149- 11504 20136 1980- 1990: 34114 2620- 29304 19482 5640- 3650: 29977 
320- 330ı 04472 i1l&0- 11701 214097 2000- 2010: 22848 2840- 2850: 57583 3660- Ih70: 38775 
340- 50: Sadrı 1180- 11901 90481 : 2020- 20301: 2394& Re40- 2870: 297600 36430- 3690: 55823 
360- 3701 64887 1200- 1210 45891 2040- 20501 12829 2600- 2890: 2885 3700- 3710: 12990 
380- 390: 116517 1220- 1230: 47144 2060- 20701 37544 2900- 2710: 967 3720- 3730: 28977 
400- 4101 57515 1249- 12561 47981 2080- 20901 33452 2920- 2930: 19588 3740- 3750: 38773 
420=- #304 17037 1260- 1270: 73359 2100- Zi10r 4800 2940- 2960: 577B2 3740- 3770: 37501 
4AQ- 450: IAS& 1280-, 12901 4910& ! 2120-2130 29494 2960- 2970: 29654 3700- 37991 17437 
460- 4701 7277 1300- 1310r 82542 2140- 2150: 3999 2980- 2990: 62635 3200- 3aidı Fi8l 
200- 470: 405935 1320- 1330: 74450 2160- 21701 1147 3000- 3010: 243% 3820- 3830: 40401 
500- 510: 44348 1340- 1390: 60527 2180- 2190: 79802 3020- 3030; 5143 SBad- 30503: 49781 
520- 5%: 21613 1360- 1370: 125170 2200- 2210: 50356 . ..3040- 3050: 47461 IB&O- 38701 50807 
540- 5501 4678 13d0- 1390: 33905 2220- 2230: 52937 30650- W701 40292 3B80- 3990: 110952 
560- 570: 54180 1400- 1410 ZAB& 2240- 2250: 1933 3080- 30%: 31222 3900- 3910: 2877 
SE0- 5901 77126 1420- 1430: 39388 2260- 2270: 15294 3106- 31101 47031 3920- 397301 22740 
&00- &10: 89500 - 1440- 13501 26014 2280- 2290: 18720 3120- 3130: 1510 3940- 39501 315548 | 
620- #301 i1171 1460- 1470: 1873 2300- 25109: 34559 3149- 3150: 30788 3960- 39701 28037 
#40- #50: 55714 14380- 1490: 59497 23520- 2330: 16384 3160- 3170: 15775 ZB0- 390: 24371 
s40- 4701 592356 1500- 15101 37991 2340- 23502 2197 Z10- 3190: 24474 4000- 4010: 7431 
BRO- 5904 28107 1520- 15301 1477 2360- 2370: 37471 3200- 32103 21193 4020- #030: 44307 
700- 710: 10919 1540- 15501 23513 2380- 2390: 13911 3220- 3230: 14508 4040- 4050: 84541 
720- 7301 4498 1540- 1570: FAI56 2406- 2410: 7291 3240- 32501 20787 20&0- 40701 95566 
740- 750: 43937 1S80- 15901 Alö2& 2420- 2430: 46297 3260- 5270: 12522 0@0- 4070: 82494 
750- 7703 Tobi 5 1600- 1410: 74323 2440- 2450: 1808 3280- 3290: 9540 4100- 41105 44005 
700- 790: 33950 1620- 16301 20423 Z440- 24701 19544 3300- 3310: 13850 4120- 41307 20399 | 
800- BtOı 45687 1640- 14501 38376 2480- 2470: 18710 3320- 33503 18134 4140- 4150: 15778 | 
820- 8305 23268 t660- 14701 27031 2500- 25101 57958 3340- 3350: 26840 A1a0- = 201 |\ 
840- 8501 10940 1680- 16901 14484 2520- 2530: 33043 3560- 33701 SB448 ——n | ! 
BE0O- 8703 15241 1700- 17103 13233 2540- 25501 7811 3I80- 339012 4700 GESAMTCHECKSUMME: S0042 | 
| 





REVERSI. sr cıs, 116/plus 4. 


Was, Sie kennen Reversi nicht? 
Ja, genau. Es ist das nette Spiel mit 
den zweifarbigen Kukidentspiel- | 
steinen. Der Gegner hat zum | 
Beispiel die dunkel gefärbte Seite 
der Steine und ich die helle Seite, 
Nun setzen wir unsere Steine so, 
daß zwischen diesem Stein und ei- 
nem weiter entfernten eigenem 
Stein möglichst viele gegnerische | 
liegen, die man dann alle umdre- | 
hen kann und somit zu eigenen 
werden. Der Gegner (dieser | 
Schuft von Computer) darf das 
natürlich auch - und er macht das 
verdammt gut! 

Wenn also mal der Spielpartner 
fehlt: viel Spaß mit "REVERSI” 
gegen den C 16! 








Gomputs mib 9786 





.. 





u m Zn. u 


20 REM # REVERSI * 
453 GOSLBFFS 


50 CLR:DIMBAt9,F) ‚YAiB) ‚XAiB8) „SA$(Z) 

SS M$S=UCHOHE DOWN203” 

6 Y=0: X=0: YB=0: XB=0: CA=0: SB=0: PA=0: ZA=2 
2: FA=0: FA=NOTFA 

55 FORI=1TO8:READYA II =SREADXA(IISNEXT 

70 GOSUB3S3S5:PB=0:PC=0:PD=0 

75 PRINTM£S :PRINTTAB (7) "SQLL{SPACEF ICHTS 

PACEIGUTCSPACEHSPIELEN{SPACEY? 

80 PRINTTAB{11) "EINGABETSPACE} (J/ND 

85 BETKEYEF: IFE$< >" T"ANDEF«E >" N" THENES 

90 IFE+="N”THEN1OO 

95 PB=1:Fl=1:FPD=2 

100 SC=-1:WA=1:5AF (5C+11="e" SAH (WAHL )=" 

ONZSAFLLISHLBPACEN" . 

105 FORY=OTO?:FORX=OTOIF: BACK ,Y)=0:NEXTXz 

NEXTY 

119 864,4) =WA: BA (5,5) =WA: BA (4,5)=SC:BAt 

5,4)=5C 

115 6A=2:5B=2; 5SD=4: AA=FA: CB=WA: MA=SC 

120 PRINTM$S +PRINTTAB (7) "WILLST{SPACEFDU 

{SPACE} SCHWARZ {SPACEHODER 

125 PRINTTAB (7) "WEISSTSFACENFTLIERACEI (5/W 

IISPACERN" 

130 GETKEYE$: IFESX 2"S"ANDE$FT >"W" THEN1SO 

135 IFE$="S"THEN145 

140 CB=5C: MA=WA 

145 PRINTM$3 :PRINTTAB (&) "WILLSTISPACEIDU 

{SPACE} ZUERSTISPAGEFZIEHEN{SPACE}? 

150 PRINTTAB (7) " SSPACEAFEINGABE SPACE} td 

/N) 

155 GETKEYEFS IPES< >" JVANDER< >" N" THEN15S 

1580 G0SUB8380 

165 IFE$="J"THENA1S 

170 PRINTM$:; sPRINFTAB (6) " ISPALERF ICHISPA 

CE}DENKE{SPACENNACHTSPACEFF" 

175 PRINTTABLT)I"ISPALE2EI” 

1909 YAa=FA 

185 BB=0 

190 SE=0O 

175 WB=0Q 

200 SF=CB 

205 GA=MA 

210 FORY=1T08B 

215 FORX=1108 

220 IFBA(Y„X}THEN2FS 

225 GOSUB48S 

230 IFNOTOKTHEN2FS 

235 SG=FA 

240 50SUR720 

245 IFPA=OTHENZ9S 

250 IFY=10RY=BORX=1DRX=BTHENFA=PA+FD 

255 IFY=20RY=7ORX=ZURX=7THENPA=SFA-FPC 

260 IFY=3Z0ORY=SAORK=ZORX=ATHENFPA=SFA+FB 

265 IFPAZBETHEN2#S 

279 IFPA>BBTHEN28O 

275 IF RNDt1} >. STHEN?29S 

280 BR=FA 

285 SE=Y 

290 WE=X 

295 NEXTX 

300 NEXTY 

305 IFBB>GTHENZSO 

310 IFVATHENSZS 

315 vA=Ta 

320 BOTO18S 

325 PRINTMF$} = FRINTTAR (7) " ICH{SPACEFMUSST 

SPACE>AUSSETZEN 

3350 FORT=1TOSO00:NEXT 

335 IFAATHENGSS3S 

340 AA=TA 

345 GOri41S 























:88> 
x171> 
632 
<211> 


“377 
x1&67> 
s64> 


&7> 

x144> 
51275 
<2A0> 
“219> 


«1913 
235 


<195> 
«a5? 


<16> 


<149> 
“1713 
154> 
“246? 


programme 


3530 AA=FA 
355 PRINTME} :FRINTTAR(F) "ICHISPACEF ZIEHE 


ISRACENNACHTSEACE? " SCHRF WEHR STR${SE) 
366 BOSUBF4S 

365 Y=SE 

370 X=WB 

375 96=TA 

380 G0SUB720 

5395 CA=SCA+PA+1 

390 SE=5B-FA 

3975 SD=-Sb+i 

400 PRINTM&:FRINTTAR<T) "DASTSPAGEF BRINGT 
KBSPACE>MIR"HFRS "STEIN (EI. " 

405 GOSUBBAO 

210 IFSB=00RSD=44THENA1S 

415 SF=hA 

420° GA=CH | 

425 PRINTM$:FRINTTAR (5) "ISPACEIFT" 

430 PRINTTAB (5) "(UR2 SPACEIGIBISPAGEIDE 
INEN{TSPAGCEFIZUGTSPACEFEINTSPACEIEY” 5 

425 INPUT" TLEFTISI "ZEINF 

IFLEN (EIN$} <ZTHENSES 
IFEIN£=" AG" THEN4AO 

GOSUBBFO 

IFYTHENA490 

460 FRINTMFZ =PRINTTAR (8) "WILLSTTSPAGCENDU 
SPACE AUSSET ZENTS. SPACEI PLSPACE2Y"SPRINTT 
AB(10) "EINGABELSPACEF LUD 








. 465 GETKEVES: IFES< >" I" ANDESC>"N"THENA6S 


470 IFE$< >" J"THENGSSSS 

475 IFAATHENS1S 

480 AA=TA 

485 5010170 

490 IFBAtY,KI=OTHENS1O 

495 FRINTM$:SPRINTTAR{B) "FLATZTSPACEIBERE 
ITS{SPACEFBESETZT 

500 FORT=1T01000:NEXT+FRINTTAB (BI "UP SP 
ACE21>" 

505 GOTOS460 

510 GOSUB6AS 

515 IFOKTHENS4O 

520 PRINTM$; :PRINTTAB<@) "DAS{SPACEISCHLA 
EGSTISPACEHKEINEN{SPACESF" 

525 PRINTTAB<10) "MEINERISPALEISTEINE 

550 FORT=1T010005NEXT 

535 G0T0540 

540 SG=FA 

545 GOSUB720 

550 IFFA>GTHENSES 

555 CHAR1,7,20,"DATSPACEYSTEHTTSPACEIKEI 
N{SPACEISTEIN SPACEFGEGEBUERER 

Ss40 GOSURB 880:G6010425 

SA5 AA=FA 

570 PRINTM$:PRINTTAB (7) "DAS{SPAGCEFBRINGT 
TSPAGEFDIR" sPAs "{SPACEISTEINEI" 

575 56=TA 

590 G0S8UB720 

595 SB=SB+PA+1 

590 CA=CA-PA 

595 SD=SD+1 

600 GOSUBBSO 

605 IFCA=OORSD=544THENG1S 

&10 GOTO170 

615 FRINT"{CLEAR DOWNZ3 RIGHTIOYDULSPACE> 
HAST";SE3 "STEINE. (SPACE3}" 

620 FRINT"{DOHN2 RIGHT1OFICHISPAGEFHABE" 
;CA; "STEINE. 

625 IFSB=CATHEN445 

630 IFSB>CATHENS5S 





























635 FRINT"{DOHN2 RIGHTEYDASTSPACEFHABE LE 





PATE} ICHTSPACEFWOHLTSPACEFGEWONNEN" 
640 GOTOAS60 
645 PRINTTAB (10) " SDOHN2FUNENTSCHIEDEN 








Gompute mit 


x<149> 


<195> 
<216> 
<56> 
<60> 
z<a> 
2206% 
<198> 
xh8> 
<112> 


s650> 
2513 
<194> 
<14> 
<21B> 
“2073 


59? 
<248> 
<52> 
<187> 
4355 
77 


x192> 
22953 
<1892> 
<2397> 
<775 

<54> 

16: 


<214> 


<207> 
797 
<116> 
<a0> 


x246> 
<99> 

<203> 
<110> 
<114> 
“i16> 
<180> 


<8> 
#200> 
<109> 


<69> 

<205> 
<151> 
<230> 
<182> 
<57> 

*171> 
<101> 
<“180> 


237> 


“17a> 
<46> 
367 


<248> 
2177 
<187> 


programme 


550 GOTDG60 

655 PRINT" {DOHNZ RIGHTSYDASTSPACEISFIELT 
SPAGEIHÄST{SPACESDULSPAGEIGEWDNNEN 

650 FORT=1TDS009: NEXT 





665 PRINTTAB(4) " DOHNZIWILLSTLSPACEIDUTS 
PAGEFNICHTSPACEHEINMALTSPACEISFIELENISPA 


GEF?" 
&70 GETKEVES: IFE$Z 3" IT" ANDES< >" N" THENG7O 

&75 IFE$="J"THENSO ; 

&80 PRINTTAB (7) " CDOUNZIVIELENTSPACETDANK 
{SPACE} FUERTSPACEFDASTSPACEISPIEL.TSPACEN 
12: FORT=1T0700: NEXT+SCNELR= END 

685: OK=FA 

670 FORYi=-1T01 

695 FORX1=-1T01 

700 IFBA(Y+Y1,X+X1)=GATHENOK=TA:ELSE71O 

705 RETURN 

710 NEXTX1:NEXTY1 

715 RETURN 

720 PA=0 

725 FORI=1T08 

730 YBR=Y+YAtI) 

735 XB=X+XA(D 

740 EA=0 

745 IFBA(YB, KB) <DGATHENG2S 

750 EA=EA#+1 

755 YB=YB+YA(TD) 

7&0 XB=XB+XA{T) 

765 IFBA(YB,XB)=SFTHEN790 

770 IFBAtYB,XB)=C0THENS2S 

775 GOT0750 

780 PA=PA+EA 

7853 IFNOTSGTHEN92S 

770 YB=Y 

7953 XB=X 

800 FORIJ=OTDEA 

805 BA(YB,XBI=5F 

810 VB=YB+YACTI 

815 XB=XB+XA(CT) 

820 NEXTI 

825 NEXTI 

830 RETURN 

835 REM #### SPIELFELD ###% 

840 SCNELR: COLORO „2,3: CDLOR4,2,3:CO0LOR1, 
1 














945 PRINT ,"tDOHNIATSPACEFBISPACEIGTSPACE 








IDISPACEIELSPACEYF ISPACEYG{SPACE}H 
850 PRINTTABN“" STE ETTERR 
855 FORX=1T08 
8650 PRINTTAB (BI X: " | TSPACE3 I {SHIETSPACES 
I  EnEn. 
SHIFTSPACE} }XSHIETSPACES |{SHIETSPACE} | 
845 IFXZBTHENFRINTTAR(N AH 
Dr; P 
870 NEXT:PRINTTAB (9) " u de 
875 RETURN 
880 REM ###* STEINE SETZEN ##r# 
885 FORY=1T703: FORX=1T03:CHAR1 ,8+2#X „172% 
Y,SA$tBALY,XI+LISNEXTX:NEXTY: RETURN 

ga Y=-1 
895 X=Y 
700 EC=ASCTEINFS 
305 TFASCÄLEFTS(EIN$,1)} 3720RASCLLEFTS IE 
IN$,1) )<&S5THENA425 
310 EZ=VAL (MIDSCEINS,„Z,1} 
915 IFÜCSASORCCH7ZTHENA2S 
320 IFCZ< 10RCZ>BTHENA25 

925 IFY=-1ANDECZ+=1ANDCFS=BTHENY=CZ 

so IFY>-1ANDX=-1ANDEE>=A5SANDCES=72THENX 
=CC-64 
735 IFY»-1ANDX“ >-1 THENRETURN 
940 GOTNF700 

945 I=1 


<227> 


<78> 
<101> 


<179> 
*124> 
39? 


<1935%+ 
<7> 

x195>+ 
<198> 
<146> 
<Bl> 
z108> 
xF1> 
<122> 
<72> 
«205> 
«199 > 
<131> 
<1> 

<121* 
<14> 
“7? 

<189> 
2797 
<96> 
<99% 

2157> 
<112> 
<i12> 
<147> 
<208> 
<70:> 
<63> 
<77> 
<Bo> 
<207> 
<150> 


<188> 


s111> 
2295 


. 2335 


445 


<a0> 

<255> 
«252* 
“at%> 


x9> 
2555 
Dar Zu 
Sa49F> 


<1977 
2015 
z251> 
<182>+ 
«243> 


<201>° 


195> 
<250> 
<244> 


950 BE=0 

955 EIN$=SA$tCE+1) 

960 IFI=1THENCHAR1 ,10+2# (WB-1) „3+2# (SE-1 
),EINE 

965 I1=-I 

970 IFBC>FTHENRETURN 
975 BC=BC+H1 

980- BOTOF&0 

985 DATAO,1,-1,1,-1,0,-1 
Oylal 

370 REM VORSPANN 

995 SENELR: COLORO ,1:COLOR4, 1 COLOR ,3,1 
1000 PRINT" {RUSON? , 
1005 PRINT” {RVSON} | ERVSGEFI"3TAB(ZIN"IRV, 
SON? | RVSOFF}" 

1010 PRINT" {RVSON? | {RVSDEFY"TABI1Z) "RISP 
ACEIEXSPACEIVISPALEIEASPAGEIRISPACEISTSR 
ACE>T"TAB (39) " RVSON® | KRUSOFFI" 

1015 PRINT" {RYSON} | {RVSGERN"TAB(3P "ERVS 
ON? |XRVSOFFI" 

1020 PRINT" ERVSONF Ha 
u m u 

1025 PRINT"{APSON} | ERVYSBEFF" STABLSRN"TRK 
SON? | LRWSOFFF" 

1030 PRINT" {RVSON} | {RVSDFEF SPACE?ZIELISP 
ACE+DIESESCSPAGEISTRATEGISCHENTSPACEI SFT 
ELSCSPACEIISTISPACE RVSON} | {RVSGEF>" 
1035 PRINT*ZRYSON? |IRVSDEF, SPACEHES, {SPA 
CEIDURCHTSPACE?SETZENLSPACE}DERTSPACEFEIL 
GENEN{SPALEISTEINEISPACEZ RVSON} | {RVSOFF 
I ” 





























1040 PRINT" TRVSONS | ERVSOFF SPACEIDIETSPA 


CEISTEINETSPACE}DES{SPALE3GEGNERS{SPACEI 
EINZUSCHLIES-{SPAGE RYSON} | CRVSOFFI" 
1045 PRINT" ERVSOR} I ERVSGER SPACENSEN.TSP 
ACESDIESTSPACEFKANNSSPACEFVERT IKAL ,„ TSPAC 
E>HORIZONTALTSPACEZ RWSON} | LRWSGFFF" 
1050 PRINT" {RVSONF!IRVSOEF SPACEHODERSP 
ACEYDIABONALTSPACE? GESCHEHEN. {SPACEIZ RV 
SON} KRVSOEFI" 

1055 PRINT" {RVSON} |{RVSOFF SPAGEIDIETSPA 
CEISOL SPACE} SESCHLABENENTEZPAGEFSTEINETSR 
ACEIGEHDEREN{SFALE2 RVSON} | CRVSOEFY" 
1060 PRINT" {RVSON? | (RVSGEF SPACEFDANN{SP 
ACEIZU{SPACEYDEN SPACE FEIGENEN{SPACEISTE 
INEN. {SPACE? RUSON} | CRVSBEF}" 


























1065 PRINT" {RVSORF | ERVSOFFF TABLE " ERKS 





ON |LRVSOERS" 

1970 PRINT" IRVZENSLERVSOFF SPACEIWILLTSP 
ACE>MANTSPACEFEINE CSPACE>RUNDE (SPACEFAUS 
SETZEN, {SPACE}SOTSPACER RVSON} | TRVSDFFF" 





1075 PRINT" £RVSDONY | XRVSOFF SPACE>ISTISPA 
CESDIETSPACEFKOORDINATE {SPACE} "AO TSPACE 


FEINZUGEBEN. {SPACEZ RVSOMF!{RVSOFEI” - 


1080 PRINT" SRYSONF | CAFSOEFF" TABIZI"CRVS 


ON |HRVSOFEF" 


1095 PRINT" {RVSON} | IRVSOEF SPACESYVIELSS 





PACE>SPASSTSPACEFRBEIMISPACE>SPIELTSPACE} 
ICHPACEF RVSONF LRVSOFFF” 











ie PRINT" {RVSOR} | CRVSOFFF "TAB (ER) VAÄRVZ 





FICRVSOEFF" 
Koes PRINT" {RVYSON? : {RVSOFFE ELASHON, SPACE 
SYSTARTISPACEIMITÄSPACEFS SSPAGEISPACE:SR 





AGEYTISPACE FLASHOFF SPACEIO RYSON} TREE 





gEE>" 
1106 FORT=1TO3: PRINT” {RVSON? | {RVSDFFI"TA 
BI3P) " CRYSONS I CAVSOEF}"SNEXT 

1105 PRINT" LRVEONF — m nn nn 


ern en ren! 


ie GETKEVE£S IFESC >" CSRACEI"THENLALOGEL 
SES | 
ENDE DES LISTINGS 


Compube mib 


Phat EU: Pina WR Ein) DEE 5 


897° 
<241 > 


<F0O> 
<154> 
<ar> 
x90> 
<52> 


<29> 
2197} 
<113> 
<T6> 


2ION 


2 
“4 
9] 
nr 


<133> 
«222% 
<15> 


<191Hr 


<h7> 
Ey 


1075 


22347 


<1FF> 


2283 


207 > 


a7: 


<194> 


<191> 


Bewerbung als Programmautor 
Name: Vorname: . 
Straße: S Wohnort: 
- Titel des Programmes: Computersystem: 
| Erforderlicher Speicherplatz: KBytes 


Erforderliche Peripherie: 

Ich versichere hiermit, daßich der Autor des oben genannten Programmesbin undalle Rechte besitze. Ich bin damiteinverstanden, daß Sie 

mein Programm in einer Zeitschrift abdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt 120 DM pro abgedruckter Seite. 

Sollte das Programm nicht veröffentlichtwerden, bitte ich um Rücksendung meiner Unterlagen. Sollte mein Programm inderZwischenzeit 

l von anderer Seite erworben worden sein, werde ich Sie unverzüglich benachrichtigen. Ich bestätige durch meine Unterschrift, daß ich 
Kenntnis davon habe, daß der Tronic-Verlag gegen Personen, die Programme einschicken, deren Urheberrechte sie nicht besitzen, rechtli- 

. ‚che Schritte einleitet. 


Unterschrift des Programmautors (bei Minderjährigen auch die eines Erziehungsberechtigten): 


4 Folgende Unterlagen liegen diesem Schreiben bei: 


| Kassette: _____ Diskette _________ Dokumentation: _____ Listing: __ — — — Rückporto: 


ui ‚Unterschrift des Programmautors (bei Minderjährigen auch die eines Erziehungsberechtigten): 


| Einsenden an: Tronic-Verlag Abt. Programmentwicklung, Am Stad, 3440 Eschwege 


I% Kleinanzeigen % Kleinanzeigen % Kleinanzeigen 


{Bitte zweimal unterschreiben!) 


Auftrag für Gelegenheitsanzeigen in „Compute mit... 


Name und Adresse i 


An „Compute mit...“ 
Tronic-Verlag 
Postfach 


3440 Eschwege Urrarachelt: 

Unter ik „Kleinanzeigen"- ei R; ? 

a N ge Geloenieiie, Ich wünsche folgenden Text zu veröffentlichen; 

anzeigen für Verkaufsangebote, 

Kauf- und Tauschgesuche, Kon- 

taktaufnahme bzw. Erfahrungs- 

austausch usw, 

Unser Preis für „Kleinanzeigen“: 

Private Kleinanzeigen 

bis 5Zeilen nurDM 5,- DM 

bis 10 Zeilen nur DM 10,- DM 

Jede gewerbliche Gelegenheits- 

anzeige 

bis 10 Zeilen nur 15,- DMI 

(dürfen nicht unter Chiffre er-- 

scheinen) 

Eine Veröffentlichung erfolgt mr | | 1 1 1 1 I 1 JA SAT THIS III EEE IL 4:180- 
be ’ 


gegen Vorkasse! = 
& A = Zutreffendes ankreuzen 
Kleinanzeigen jetzt suche © Software suche O Hardware © Tausch © Versch, 


noch preiswerter biete an © Software | biete an © Hardware O Kontakte O Chiffre 





GSompube mi 61 





kleinanzeigen 





* Kleinanzeigen * Kleinanzeigen * Kleinanzeigen * 





Biete Hardware 


C16/116 Ram-Erweiterung!! 


186/116: 60671 Bytes free für 97,80 - 
atle Ports frei - keine Einschränkungen 
« incl. Umbau ** Computer ohne Zube- 
hör mit 100,-DM (2,20DM tür die Post) 
senden an: Elektronik-Technik 
Tannenweg 9 

D- 2351 Trappenkamp 





Für nur 69 DM Umbau Ihres G-16/116 
auf 64 KB, 6 Monate Garantie, Umbau- 
zeit 1 Woche. In Vorbereitung: Kasset- 
teninterface, 8-Bit AD/DA Umsetzer, 


Parallel/Seriel} Input/Qutput-Interface, 


Sensor-Joystick. 

Elektronic-Versarıd H.J.Ditt- 
mann,Talstr.8, 5277 Marienheide, 
Talstr.ß 


Verkaufe C-116 (8 Monate all) + Data- 
sette + Joystick, ca. 155 Spiele z.B. 
Bandits at Zero, FOrmula one, incl, 
Software-Katalog und Zeitschriften. YK 


250 DM. 
Tel.:07221/25480 von 15 bis 18 Uhr 





Verkaufe wegen Systemwechsel Gom- 
modore C-16 mit Datasette, Handbuch, 
Basiclernkassetts u, Zubehör (Spiele, 
Joystick...) i Marc Lutz, 
Tel.:068501/12542, Preis: VB 





“"* 6-16 Speichererweiterung *** 

60671 KByte frei, nur 87,--DM. Kasset- 
tenkopiermodul auch für Kassettenre- 
korder und C-16, Centronicsinterface 
für C-16, Userport für C-16. Info von 
Fa.W. Keßler, -elektronik-, Auprechtstr, 
14., 8736 Edesheim, Tel.:0632377114 





Verkaufe Schneider GPC 464 

mit Grünmonitor, fast neul 

Preis VB 

Tekefon 0201/9416895 ab 17 Uhr 

Sa. oder $0. ab 9 Uhr bis ca. 19 Uhr 





vornihar ©-16 Hardware wawatans 
C-16 + Datasette + Joystickadapter 
+ 9 Topspiele für nur 180 DM abzuge- 
ben. Garantie bis 31.1.87 Tel. ab 19 
Uhr: 083739269 





C18/116 RAM-Umbau 84 KBYTE 


In tem Tag für 100 DM nur bei mir ko- 
stenlose Durchs., auch Reparatur 

*4* beim Computerfachmann "** 
Noch Fragen? Freiumschlag an: 
Elektronik-Technik-Peters 

Tannenweg 9, D 29351 Trappenkamp 





Für ©16/116/plus 4 kostenlos! 
rer nah 
infos-Tips-Angebote-Umbauten 

“"** yon Gomputerfachmann *** 
Erweiterungen + Reparaturen.. 
Noch Fragen? Freiumschtag an: 
Eiektronik-Technik-Peters 
Tannenweg 9, D 2351 Trappankamp 


C16/116 RAM-Umbau 64 KBYTE 


In iem Tag für 100 DM nur bei mir ko- 
staniose Durchs., auch Reparatur 

*** beim Computerfachmann *** 
Noch Fragen? Freiumschlag an: 
Eiektronik-Technik-Petars 

Tannenweg 9, D 2351 Trappenkamp 





Für C18/116/plus 4 kostenlosl. 
EEE NZ DEE EZ 2 2 ZZ 2 u 2 2 2 2 2 2 22 202 
Infos-Tips-Angebote-Umbauten 

*** vom Computerfachmann *** 
Erweiterungen + Reparaturen.. 
Noch Fragen? Freiumschlag an: 
Elektronik-Technik-Peters 
Tannenweg 9, D 2351 Trappenkamp 


Verkaufe C-16 Spiele,2.B. Ball on Shot, 
Goldrausch, Pac-Mac usw. 10 Spiele 
tür 20 DM. Eilt sehr. 
Jürgen Guss, 

2217 Kellinghausen 


Quarnoteterstr.12, 





Seikosha-GP 100-VC-Besitzer aufge- 
passt ! Endlich auch deutscher Zei- 
chensatz ! Auf Sekundäradresse 7. Nur 
EPROM austauschen I 30 DM, Tel. 
0561/8938633 


Biete Software 


Sie haben einen C641128 C16/115/+4 
Schneider CPC 464/664/6128? Wir ha- 
ben.die Programme, ‚das Zubehör, die 
Peripherle... Fordern Sie unseren Kata- 
(og kostenlos an, bei Fa, H. u, R. Hüb- 
ben, 5429 Marienfels. Bitte Computertyp 
arıgeben! Ca. 1000 Artikel zu Superprei- 
sen lieferbar! Große Fachbuchauswahll 





Suche günstige C16 Software auf Cas- 
sette. Möglichst mit Schnellladung. Spe- 
ziell Formula 1 Simulator. Angebote an 
Peter Schweinberger, Nobeistr. 23, 
8990 Lindau. 





Suche gute preiswerte Software (An- 
wenderprog., Spiele, Utilities) für Com- 
modore 84. Angebote bilte an: 

Computer, Postfach 159, 6400 Fulda 1, 





Suche für 016-64K: Hard + Software für 
DFÜ;Tips zur Nutzung des Serial Aus- 
gangs,Lightpen+Pgme, + Anwender 
software. A.Meysrhoff, Postfach 1242, 
6093 Flörsheim 





FEIERTEN 


*"* PG 128/ 
VC 64 Software *** 


PC 128: Monarchle DM 15,» 


VC B4: 
ASTRAY IN JUNGLE DM 10,- 
Bei: Oldi-Soft, 

Wulffhagener. 34 

2190 Cuxhaven, 
Tel.04721/25634 

Wir suchen noch Programme 
mit Copyright gegen quite 
Bezahlung. Programm aut 
Kassette oder Diskette mit 
Anleliung an uns schicken. 


EEE Kr 


KERERRERTRHRTHRTN 
KRRREREERTERTERRR 





CPC * TOP-SOFTWARE * CPC 

* * Blorytihmus-Total * * 

Läßt vergleichbare Programme erblas- 
sen. Exclusiver Bildschirm, deppeite 
Grafik, Vergrößerung, sehr komfortabler 
Ausdruck, Ein Monat cak 8 DIN- 
A4-Seiten mit sehr ausfühlichen Erläute- 
rungen und Hardcopy für Grafiken. Zu- 
sätzlich können Partnerschaftsanalysen 
erstellt werden, ebenfalls mit ausführli- 
chem Ausdruck, Interessante Neben- 
verdienstmöglichkeiten bietet dieses 
Programm, das sich auf rein wissen- 
schaftliche Grundlagen und Erfahrun- 
gen stützt{49K). Bestellungen unter Nr. 
0961 gegen Vorkasse bei Hilterscheid, 
Ludwig-Rosnberg-Ring 47, 

2050 Hamburg 80, Tel.:040/7211974, 
Cass.DM 40,- 





Kostenloses Info über Programme aus 
Eigenentwicklung für alle Schneider- 
CPC-Gomputar erhalten Sie vor Frie- 
drich Neupert, Postfach 72, 8473 
Pfreimd. Eine kurze Postkarte genügt. 





Thomas-Soft,Tsamadou4,Alhina, Gree- 
c8,4000Prg Ja 20 DM Print Shop News- 
room Flightsimutator Il, Jet Silant Servie 
Ghost'n Goblins Mermaid Madness Big- 
gies Fairlight Bomb Jack Nexus Green 
Beret Shogun Law of the West Murder 
or Mississipl Spindizzy Herz von Afrika 
Golf Con. Set Zoids Way of Tiger, Write 
and we sent you a list Disk, Tape. 


Supersoftware zu kleinen Preisen. Wo: 
Bei F. Jegouio, Nordwalder Str. 83, 
4407 Emsdelten. Infos gegen 1.20 DM 
in Briefmarken. Tausche auch ! Suche 
auch Hardware. 





©-16/116/plus 4 Software: 

verkaufe über 20 verschiedene Profi- 
spiele - vom Adventure bis zum Baller- 
spiel, Alles original! 50% auf jedes 
Spielll 

Solange Vorrat reicht. 

Tel.: 02287254086, Biörn Kindervater, 
Köhlstr,70, 5300 Bonn 4 





Seibstgeschriebene Topspiele zu Ta- 
schengeldpreisen! Infos bei Torsten 
Gilsbach, Ruf: 02981/12269 oder Stefan 
Kramer, Ruf: 02981/6848 





GSompute mib 


Jetzt aber schnell 
Löhnsteusr-Jahresausgleich 1985 
Bis zum 30.9. müssen Ihre Anträge beim 
Finanzamt seln| Für Schneider 664 und 
6128 bieten wir das Rechenprogramm 
für Ihren Lohnsteuer-oder Einkommen- 
steuer - Jahrasausgleich: 

Privat - 85 
Damit erhalten Sie die komplstten und 
aufgeschlüsseiten Ausrechnungen, Ein- 
facher geht es nicht! Für nur 60,- DM 
plus Nachnahmegebühr; Den Prospekt 
gibt es für 80 Pfennig in Briefmarken. 
Auch für Commodore C 64, Atari 
260/520 und Enterprise 128 geeignet. 
dialog partner in Berlin gmbh 
Postfach 360 205, 1000 Berlin 





*C16/116* Grafikprogramme-Mini-CAD, 
sichern,laden und weiterserarbeiten d. 
Grafiken; 

info gegen Porlo; M.Rätzel, Uiven- 
bergstr.6, D-65100 Darmstadt 


C-16/116 Topangebote 

Tausche und verkaufe super Spieie z.B. 
15 Spiele 20 DM Mr. Puniverse, Kung 
Fu, Sky, Billard, Mexiko 86, 

Thomas Molden., Erkasstr,51, 5 Köln 60 





C-18 16 Besitzer aufgepasstlll! 

20 Spiel- und Anwendungsprogramme 
(keine Raubkopien) für zusammen nur 
20 DM abzugeben. Die Programme sind 
auf Kassette abgespeichert. 20 DM als 
Scheck oder Schein einsenden an; 
Daniel Beitlich, Kleine Höllbergstr.6, 
6099 Frankfurt 50, ader Info gegen 
Rückporto (80 PF). 





VG 20 Software zu verk;- Wordkraft 20 
Textverarb. Modul, incl. 16 KB Erw. + 
Handbuch (deutsch), sfr 150,-wegen Sy- 
stamaufgabe zu verkaufen. 
—100 Spiel + Aw. auf Cass, und Disk 
für VG 20.! Preis: sfr. 100,-. 





info; Beat Biffiger, Dammweg 25, 
CH-3904 Naters (Rückporto beilegen) 

KRERERFKEFFFKE EN 
. Topsoftware zu Top-Preisen x 
* Bomb Jack 28.90 DM %. 
„ Batman 28.90DM , 
„ Green Beret 28.90DM „ 
„ Tomahawk 28.30DM x 
x Spindizzy 35.90DM % 
* Get Dexter 33.90 DM * 
4 Fox Strip 29.00DM 
3% Fairlight 29.00DM % 
* M+K Software * 
%* Tet.: 07022/6815 * 
KEKKKHEKEFFFR FEN 





Tabellenmeister / Diskbibliothek / Ko- 
pierprog.f. 1541/1551 / Dateiverwaltung 
/deutsche Turtelgrafik u,v.a.m. {auch für 
16K-Versionen) 

Softwareinfo gegen Rückporto bei: 

B, Lauer, Handgasse 10 

8700 Würzhurg 



















*016 C16 C16 C 16 C 16 ** 
Wer die vollständige Poke-Trick-Liste 
kennt oder/und seinen gebrauchten C16 
zu verkaufen gedenkt, wird gebeten, 
sich schnellstens mit mir in Verbindung 
zu setzen: Andreas Meisser, Mühldamm 
10, 8630 Coburg; vielen Dank* 





'Kaufe Eure gebr. Originalkassetten auf, 


wie z.B. Football Manager, 007,ect. Tau- 
sche auch! Liste an Roland Giese, Ei- 
chendorfstr. 22. Bitte nur CPC 464 
Programme- Danke. 

Wer tauscht seinen Farbmonitor gegen 
meinen GT65 + MP-1 + 100DM oder 
GP65 + 200DM? Schreibt an mich - bit- 
te nicht anrufen! 





Suche gut erhaltenen C-64. Zahle bis zu 
200,-DM. Angebote an: 

Thomas Peelen 

Am Römerlager 26 

4358 Haltern 

Tel.: 02364/13149 





Suche Listings zu folgenden C-16 
Spielen: 

Schatzsucher 

Raketenstart 

Dreikampf 

MinorJumper 

Hero 
Angebote an: Thorsten Boese, Pappel- 
weg 23, 2300 Kiel 1 





Suche Commodore Floppy - biete bis 
280 DM, Tel. 08705/1286, Suche 
Tauschpartner (Taps+Disk), Anschrif- 
ten an Gerd Löffler, Fichtenstr.19, 8311 
Altiraunhofen 





Suche Software für C-16 auf Cassette. 
Angsebole an: Jerome Bussian, Kräpe- 
linweg 13, 1000 Berlin 20 





. - (lub- 
nachrichten 


Der Commodore mini-club und seine 60 
Mitglieder suchen immer noch Gleich- 
gesinnte! Holt Euch das kostenlose Info 
beim Cme, Postfach 1314 in 5150 Kre- 
feld 291 





**** SUCHE TAUSCHPARTNER **** 
für VO 20 und C-64 Software. Gesucht: 
"y" und "Superbowi"(C-54). Markus 
Kekßeling, Bismarckstr.23, 

8710 Kitzingen, Tel.::09321/6643 





Verschiedenes 


C16/118 Ram-Erweiterung!! 

C16/116: 60671 Bytes frae für 97,80 -al- 
la Ports frei - keine Einschränkungen - 
incl, Umbau ** Computer ohne Zubehör 
mit 100,-DM (2,20DM für die Post} sen- 
den an: Elektronik-Technik 

Tarınenweg 9 

D- 2351 Trappenkamp 


C-64 


ZERELERIHFRERFF FE 
Wer programmiert mir. den PLUS 4 mit 
Floppy 1551 als RAM-Floppy und Da- 
tenknecht vom Expansionsport auf den 
Userport des G-64? Zahle bis 200,-DM. 
Tel.: 06561/772408. 





Suche Kontakt zu anderen C16/116 Be- 
sitzern. Bitte melden bei Peter Janos, 
Sonthofer Str. 578, 8900 Augshurg, 
Tel:.0821/661224 


BR 


u er u 
kleinanzeigen 





* Kleinanzeigen * Kleinanzeigen * Kleinanzeigen * 





Be 2 1221207205 12.32.12. 2022020722275 


Verkaufe mein ganzes Computerzsug. 
Bsp.: 20 Programme auf 3 Disks für 25 
DM. AstroPhysik-Programm ORIGINAL 
für 15 DM; Hefte wie dies, 64er, CW, 
DW, MG,...für 50 Pf bis 1,50 DM. Teils 
mit Listings-Diskette, Suche außerdem 
selbstgeschriebene Games 
zwecks Verkauf: Uwe Fütterer; 
Kantstr.24; 7552 Durmersheim/ Rück- 
porto ! 


KARKEEERFEFEKEEE 


Horse Games 


Pferdesport mit toller Grafik! 


Schneider 


Panicar 


Der Amokfahrer ist in unserer Stadt! 


.„erscheint am 15.9. 1986 
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Ka E 7 > 
® 100 Seiten Programme im Test 
®  aer Soltware-Markt auf einen Blick 


® speziell gesuchte Software kann' direkt beim Hersteller bestellt werden 


® großer Kleinanzeigenmarkt 
Be ® sür alle Anwender von Heimcomputern 





Tronic-Verlag GmbH - Am Stad 35 - 3440 Eschwege - Telefon: 05651/30011 
n N Ex 2 — ns Sn 4 


